interessant ..
wenn man überall {$IFDEF DELPHI9_UP} durch {$IFDEF DELPHI2009_UP} oder {$IFDEF DELPHI12_UP} ersetzt, dann geht es auch, wenn man nicht Delphi2009 hat.
Ungetester Code .. hmm
in der Demo dann ..
bei FCompany.Name kannte er keine Property "Name"
ansonsten interessant ..
kurze Frage.
noch nie gesehen, waas bedeutet das "&" vor dem Type?
in
Unit System_.pas
Delphi-Quellcode:
&Type = record
private
class var Initialized: IInterface;
private
_IsInitialized: IInterface;
_TypeInfo: PTypeInfo;
_internalType: TTypes;
_instance: TObject; // Instance of object
_IID: TGUID;
.....
end;