Hallo,
ich komm hier irgendwie nicht weiter:
Ich versuche per SetPropValue an einem TMemo die Lines zu verändern.
Da verträgt sich aber Variant nicht mit TStrings.
Also probierte ich die spezielleren Methoden setOrdProp und setObjectProp.
Mit GetObjectProp bekomme ich die Lines, kann sie auch mit ShowMessage anzeigen.
Adde ich dann "Zeile 3" und schreibe mit SetObjectProp zurück, dann sind die Lines leer.
Mit einfachen Typen funktioniert SetPropValue, ich kann z.B. bei einem TButton die Caption oder Left, Top usw. verändern.
Ich nutze Delphi 7 Professional und Win XP Professional.
Hat vielleicht jemand eine Idee?
Danke im Voraus
Steffen
Delphi-Quellcode:
procedure TForm1.btn1Click(Sender: TObject);
var
ts : TStrings;
begin
Memo1.Lines.Add('Zeile 1');
Memo1.Lines.Add('Zeile 2');
ts := TStrings(getObjectProp(Memo1, 'Lines'));
// ts := TStrings(getOrdProp(Memo1, 'Lines'));
ShowMessage(ts.text);
ts.Add('Zeile 3');
setObjectProp(Memo1, 'Lines', ts);
// setOrdProp(Memo1, 'Lines', integer(ts));
ts := TStrings(getOrdProp(Memo1, 'Lines'));
end;