Section courante

A propos

Section administrative du site

VIRTUAL

Virtuel
Turbo Pascal pour Windows

Syntaxe

nom=Object
 ...
 Procedure ...; Virtual;
 Function ...; Virtual;
 ...
End;

Paramètres

Nom Description
nom Ce paramètre permet d'indiquer le nom de l'objet
... Ce paramètre permet d'indiquer les définitions courantes

Description

Ce mot réservé permet de définir une fonction ou une procédure pouvant être remplacer par une nouvelle fixation dans la POO (Programmation Orienté Objet).

Exemple

Cet exemple permet de remplacer la méthode déclarer dans la classe parente :

  1. Program VirtualSamples;
  2.  
  3. Uses WinCrt;
  4.  
  5. Type
  6.  MonObjetA=Object
  7.   Constructor Init;
  8.   Procedure Run;
  9.   Procedure Other;Virtual;
  10.   Function getValue:Char;Virtual;
  11.  End;
  12.  
  13.  MonObjetB=Object(MonObjetA)
  14.   Function getValue:Char;Virtual;
  15.  End;
  16.  
  17. Function MonObjetA.getValue:Char;Begin
  18.  getValue := 'a';
  19. End;
  20.  
  21. Function MonObjetB.getValue:Char;Begin
  22.  getValue := 'b';
  23. End;
  24.  
  25. Constructor MonObjetA.Init;Begin
  26.  WriteLn('Initialisation de l''objet');
  27. End;
  28.  
  29. Procedure MonObjetA.Run;Begin
  30.  WriteLn('Exécution de l''objet');
  31. End;
  32.  
  33. Procedure MonObjetA.Other;Begin
  34.  WriteLn('Objet remplacable');
  35. End;
  36.  
  37. Var
  38.  Objet:MonObjetB;
  39.  
  40. BEGIN
  41.  Objet.Init;
  42.  Objet.Run;
  43.  Objet.Other;
  44.  WriteLn('Valeur = ',Objet.getValue);
  45. END.

on obtiendra le résultat suivant :

Initialisation de l'objet
Exécution de l'objet
Objet remplacable
Valeur = b


Dernière mise à jour : Dimanche, le 10 décembre 2017