Funktionen mit PascalScript auslagern

[Daniela.S]

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;