Auf den Typ der aufrufenden Instanz reagieren

[Christian Seehase]

Moin Dominik,

warum nimmst Du hier
NewBigClass := TBigClass.Create; nicht TSmallClass?
Dann hätte es doch den gewünschten Effekt.

BTW:

Delphi-Quellcode:

function TSmallClass.ReallyDoIt: boolean;
begin
  result := false;
  if random(2) = 1 then
    result := true;
end;

// geht auch kürzer

function TSmallClass.ReallyDoIt: boolean;
begin
  result := random(2) = 1;
end;