Hi @ all,
um nochmal auf das obige Beispiel zurück zu kommen, ohne das Array habe ich es durchaus geschafft eine abgewandelte Klasse anstatt einer Basisklasse einer Funktion als Parameter zu übergeben obwohl in der Deklaration der Funktion die Basisklasse verlangt war und zwar so:
Delphi-Quellcode:
type
PMyClass=^TBasicClass;
procedure Foo(Class:PMyClass)
begin
.....
end;
procedure Tuwas;
var MyClass:TDerivedClass;
begin
Foo(@MyClass);
end;
Ich weiss zwar nicht so genau warum es so ging, aber es ging immerhin
Mit freundlichen Grüßen,
Thomas Tschofenig