Einzelnen Beitrag anzeigen

Bulvaye

Registriert seit: 17. Jul 2004
Ort: Köln
19 Beiträge
 
Delphi 7 Enterprise
 
#6

Re: Properties per Name (String) referenzieren

  Alt 26. Aug 2004, 10:04
Vielen Dank für die Hinweise. Tatsächlich ist die ganze Geschichte recht einfach. In der Unit TypInfo gibt es unter anderem zwei Funktionen, die genau das tun, was ich brauche:

Code:
uses TypInfo;

function GetPropValue(Instance: TObject; const PropName: string;
  PreferStrings: Boolean = True): Variant;

procedure SetPropValue(Instance: TObject; const PropName: string;
  const Value: Variant);
GetPropValue liest eine Property aus und SetPropValue setzt eine Property auf einen bestimmten Wert, z.B.:

SetPropValue(Button1, "Caption", "Suchen");

Per Funktion GetPropInfos() kann man auch alle Properties eines TObjects in eine Liste auslesen und durchlaufen.

Grüße
Bulvaye
Gesegnet ist, dessen Geist zu klein für jedweden Zweifel ist.
  Mit Zitat antworten Zitat