Auf Properties zur Laufzeit über Variablen zugreifen

[Andreas Kramer]

Hallo,<br><br>

gibt es eine Möglichkeit z.B. die Eigenschaft 'Text' des TEdit Objekts<br>
über eine Variable (String) anzusprechen? Ich habe nach etwas gesucht, <br>
was dem Zugriff auf die Felder eines TQuery Objekts ähnlich ist <br>
aQuery['ID'] konnte jedoch nichts finden. <br> <br>
Kann mir vielleicht jemand einen Tip geben wie ich dieses Problem lösen könnte?

[Hagen Reddmann]

Hm, Du meinst SetProperty(Edit1, 'Text', NewStringValue); = SetProperty(Object: TObject; const PropertyName: String; const NewValue: String); ???<br>
dann schau mal in der Unit TypInfo.pas nach.

gruß hage

[Andreas Kramer]

Danke, genau das hab ich gesucht

[Jens Schumann]

Moin Hagen,<br>SetProperty - interessante Methode. Nur kann die leider nicht in meinen VCL-Sourcen finden. Liegt es vielleicht daran, dass ich D5 Pro verwende?<br>Jens Schuman

[Hagen Reddmann]

Ne, es liegt daran das es eine Phantasie Procedure von mir ist, um die gestellte Frage mehr zu konkretisieren. Schau mal in Unit TypInfo da müsste eine ähnliche Funktion schon existieren.
Unter D6 heist sie SetPropValue();

Gruß Hage

[Andreas Kramer]

Hier ein kleines Beispiel<br>
<pre>

procedure TForm1.Button1Click(Sender: TObject);
begin
memo.lines.add(GetPropValue(sender,'Caption', true));
setpropvalue(sender, 'Caption', GetPropValue(edit, 'Text', true));
end;

</pre&gt