Auf den Typ der aufrufenden Instanz reagieren

[Kinimod8]

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.