Gibts sowas wie findproperty?

[Volker Z.]

Hallo,

Zitat:

Ja, es gibt so etwas wie findproperty [...] Nennt sich GetPropInfo aus der Unit TypInfo

jaenicke, vielen Dank für die Info . Damit könnte man also meinen ersten Ansatz auch so umsetzen

Delphi-Quellcode:

uses
  System.TypInfo;

procedure SetValue (C : array of TObject; const Name : string; const Value : Variant);
var
  i : Integer;
  p : PPropInfo;
begin
  for i := 0 to High (C) do
    begin
      p := GetPropInfo (C [i], Name, []);
      if Assigned (p) then
        SetPropValue (C [i], Name, Value)
      else
        // mach was wenn nicht
    end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetValue ([CheckBox1, CheckBox3], 'Checked', False);
  SetValue ([CheckBox2, CheckBox4], 'Checked', True);
  SetValue ([Edit1, Edit2], 'Text', '');
  SetValue ([Edit3], 'Text', 'Hallo Welt');
end;

Gruß