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