[RTTI] setzen von klasseneigenschaften

[Hawkeye219]

Kleines Beispiel:

Delphi-Quellcode:

type
  TMyObject = class
  private
    FProp1 : Integer;
    FProp2 : TBitmap;
    procedure SetProp2 (Value: TBitmap);
  published
    property Prop1: Integer read FProp1 write FProp1;
    property Prop2: TBitmap read FProp2 write SetProp2;
  end;

Bei Prop1 wird der Wert direkt gelesen und geschrieben. Bei Prop2 wird direkt gelesen und mit der Routine SetProp2 geschrieben. Diese Setter-Routine wird beim Zugriff über 'SetOrdProp' bzw. 'SetObjectProp' automatisch aufgerufen, sie sollte dann die Daten kopieren:

Delphi-Quellcode:

procedure TMyObject.SetProp2 (Value: TBitmap);
begin
  FProp2.Assign(Value);
end;

Gruß Hawkeye