Gibts sowas wie findproperty?

[MrMooed]

Hallo,

im einfachsten Falle könntest du deine Komponenten durchnummerieren:

Code:

edit1
edit2
usw.

und dann gehst du in einer (z.B. for-) Schleife deine Komponenten durch:

Delphi-Quellcode:

for i:=1 to EditCount do
  (TForm1.FindComponent('Edit' +IntToStr(i)) as TEdit).Text := '';
for i:=1 to CheckBoxCount do
  (TForm1.FindComponent('CheckBox' +IntToStr(i)) as TCheckBox).Checked := aufWert;

[SearchBot]

Hallo,

@MrMooed:
ja diese Methode ist mir bekannt, mache ich auch schon immer so.
Aber im jetzigen Projekt haben die Felder ganz unterschiedliche Namen, weil sie auch für den Benutzer sichtbar werden - und ich möchte es halt gerne "vereinfachen"

@Volker Z.
Hm...
das mit Overload sieht gut aus...
Ich denke, das ist es.
Dankeschön

[jaenicke]

Ja, es gibt so etwas wie findproperty...

Nennt sich GetPropInfo aus der Unit TypInfo. Da bekommst du einen Pointer auf diese Information (PPropInfo), so dass du über PropertyInfo.PropType^.Kind z.B. den Typ der Property heraus bekommst. Mit SetPropValue kannst du den Wert einer Property setzen. Dafür musst du nicht unbedingt vorher die Information holen, da das rein über den Namen einfach so geht, aber ich mache das vorher um, wenn es eine Klasse ist, mir diese zu holen.

So kann ich auch Font.Name setzen, da ich zuerst feststelle, dass Font vom Typ tkClass existiert, mir das Objekt hole und SetPropValue dann auf dieses Objekt anwende, sprich dort Name setze.

[nahpets]

Wie wäre es denn mit diesem hier?

Delphi-Quellcode:

procedure TForm1.SetAll(sText : string; bChecked : Boolean);
Var i : integer;
begin
  for i := 0 to ComponentCount - 1 do begin
         if Components[i] is TEdit then TEdit(Components[i]).Text := sText
    else if Components[i] is TCheckBox then TCheckBox(Components[i]).Checked := bChecked
    ;
  end;
end;

(nur hingedaddelt, nicht getestet)