[RTTI] setzen von klasseneigenschaften

[Hawkeye219]

Hallo Frank,

versuche es einmal so:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var ti:PTypeinfo;
    pi:PPropinfo;
begin
  ti:=Typeinfo(TMemo);
  pi:=GetPropInfo(ti,'Lines');
  setOrdProp(memo2,pi,integer(memo1.lines));  // <-- geändert
end;

Die Property-Informationen zu Lines hast du ja schon in der Variablen pi vorliegen, der erste Parameter von SetOrdProp muß also eine Referenz auf das Control sein.
Beim dritten Parameter ist der Adreßoperator falsch, memo1.lines ist bereits eine Referenz auf ein TStrings-Objekt.

Gruß Hawkeye