Gibts sowas wie findproperty?

[Volker Z.]

Hallo,

Zitat:

Gibts sowas wie findproperty?

Ist mir nichts bekannt.

Vielleicht hilft folgender Ansatz Dein Problem zu lösen:

Delphi-Quellcode:

procedure SetValue (C : array of TCheckBox; const Value : Boolean); overload;
var
  i : Integer;
begin
  for i := 0 to High (C) do
    C [i].Checked := Value
end;

procedure SetValue (C : array of TEdit; const Value : string); overload;
var
  i : Integer;
begin
  for i := 0 to High (C) do
    C [i].Text := Value
end;

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

Gruß