Virtual

senkun lisäät vaikkapa formin määrittelyyn:

procedure test2; virtual;

laitat kohdistimen -> virtual;

ja painat Ctrl-F1.

Miksiköhän Delphin sisäisen ohjeen käyttö on noin vaikeaa ?

The Virtual directive allows a method in a class to be overriden (replaced) by a same named method in a derived class.

You would mark a function or procedure as Virtual when you happily allow a programmer who creates a class based on your class to replace its functionality.

For example, you might allow a base class to paint a canvas in white, but allow a derived class to paint a picture on the canvas instead. Here, the virtual directive is allowing the code to be extended, to be enriched.

Virtual may be followed by the Abstract directive. This modifies the effect of the virtual directive. It means that the current class must not code the method - it is there only as a placeholder to remind and ensure that derived classes implement it.

Notes
Virtual is semantically equivalent to Dynamic. The former is optimised for speed, the latter for memory.

Virtuaalimetodia voit testata myös tämän esimerkin avulla
Aluksi luot lomakkeelle napin ja memon sekä napille painamistapahtuman.
Sen jälkeen lisäät puuttuvan koodin

...
type

{ TForm1 }

TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;

TKantaLuokka = class
public
function EiVirtuaaliMetodi: string;
function VirtuaaliMetodi: string; virtual;
end;

TLapsiLuokka = class(TKantaLuokka)
public
function EiVirtuaaliMetodi: string;
function VirtuaaliMetodi: string; override;
end;

var
Form1: TForm1;

implementation

{ TForm1 }

function TKantaLuokka.EiVirtuaaliMetodi: string;
begin
Result := 'TKantaLuokka.EiVirtuaaliMetodi';
end;

function TKantaLuokka.VirtuaaliMetodi: string;
begin
Result := 'TKantaLuokka.VirtuaaliMetodi';
end;

function TLapsiLuokka.EiVirtuaaliMetodi: string;
begin
Result := 'TLapsiLuokka.EiVirtuaaliMetodi';
end;

function TLapsiLuokka.VirtuaaliMetodi: string;
begin
Result := 'TLapsiLuokka.VirtuaaliMetodi';
end;

procedure TForm1.Button1Click(Sender: TObject);
var k: TKantaLuokka;
l: TKantaLuokka;
// määritellään lapsiluokalle
//myös kantaluokka tyyppinen osoitin

begin
k := TKantaLuokka.Create;
l := TLapsiLuokka.Create;
try
Memo1.Lines.Add(k.EiVirtuaaliMetodi);
Memo1.Lines.Add(k.VirtuaaliMetodi);
Memo1.Lines.Add(l.EiVirtuaaliMetodi);
Memo1.Lines.Add(l.VirtuaaliMetodi);
finally
l.Free;
k.Free;
end; // try finally
end;

...