Komponenten ansprechen... wie kann man's besser machen?

[Sharky]

Du müsstest die Editfelder auf irgendeine Art und Weise "gruppieren". Z.B. Dadurch das zusammengehörige Edits auf einem Panel oder einer Groupbox liegen oder alle zusammengehörigen den selben Wert in der Eigenschaft Tag haben.

Delphi-Quellcode:

// Alle Editfelder löschen die auf GroupBox1 liegen
procedure TForm1.Button1Click(Sender: TObject);
var
  ndx : Integer;
begin
  for ndx := 0 to self.ComponentCount-1 do
  begin
    if (self.Components[ndx] is TEdit) and
    ((self.Components[ndx] as TEdit).Parent = GroupBox1) then
    begin
      (self.Components[ndx] As TEdit).Clear;
    end;
  end;
end;

// Alle Editfelder löschen die bei der Eigenschaft Tag = 1 haben
procedure TForm1.Button2Click(Sender: TObject);
var
  ndx : Integer;
begin
  for ndx := 0 to self.ComponentCount-1 do
  begin
    if (self.Components[ndx] is TEdit) and
    ((self.Components[ndx] as TEdit).Tag = 1) then
    begin
      (self.Components[ndx] As TEdit).Clear;
    end;
  end;
end;