Hallo,
wie versprochen hier noch ein Beispiel wie ich eigene Objekte, die auf keine Vorgängerklasse basieren, importiert habe.
Delphi-Quellcode:
procedure TmyObjectValue_Read(Self: TmyObject; var value: string);
begin
value := Self.MyValue;
end;
procedure TmyObjectValue_Write(Self: TmyObject; const value: string);
begin
Self.MyValue := value;
end;
procedure RIRegisterMyObjects(Cl: TPSRuntimeClassImporter);
begin
with Cl.Add( TmyObject ) do begin
RegisterPropertyHelper( @TmyObjectValue_Read, @TmyObjectValue_Write, 'MyValue' );
end;
end;