Hallo,
Zitat von
Christian Seehase:
warum nimmst Du hier nicht TSmallClass?
Weil ich auch TBigClass.DoSomething aufrufen können und neben TSmallClass noch eine TEvenSmallerClass mit einer anderen ReallyDoIt-Funktion haben möchte.
Zitat von
Christian Seehase:
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;
Hast natürlich recht. Das ganze ist ja auch nur Beispiel, die richtigen Methoden sind noch etwas komplizierter
Danke.