EntwZeit - Subkomponente löschen - Exception wird ausgelöst

[Apollonius]

Beispiel:

Delphi-Quellcode:

program VirtualMethodsTest;

type
TAncestor = class
  procedure TestMethod; virtual;
end;

TDescendent = class(TAncestor)
  procedure TestMethod; override; {testweise durch reintroduce ersetzen}
end;

procedure TAncestor.TestMethod;
begin
  Writeln('TAncestor.TestMethod');
end;

procedure TDescendent.TestMethod;
begin
  Writeln('TDescendent.TestMethod');
end;

var Inst: TAncestor;
begin
  Inst := TDescendent.Create;
  try
    Inst.TestMethod;
  finally
    Inst.Free;
  end;
end.

Getippt und nicht getestet.

Du wirst einen Unterschied erkennen, wenn du override durch reintroduce ersetzt.