Registriert seit: 10. Jun 2003
Ort: Berlin
9.580 Beiträge
Delphi 11 Alexandria
|
AW: Inherited "überspringen"?
16. Mär 2017, 16:51
Ich würde das lieber so sauber wie eben möglich ohne Assembler lösen:
Delphi-Quellcode:
uses
System.Rtti, System.TypInfo;
procedure Unterklasse2.Proc;
begin
System.Rtti.Invoke(@Oberklasse.Proc, TArray<TValue>.Create(TValue.From<Unterklasse2>(Self)), ccReg, nil);
end;
Sebastian Jänicke Alle eigenen Projekte sind eingestellt, ebenso meine Homepage, Downloadlinks usw. im Forum bleiben aktiv!
|