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

[Sharky]

Hai MarcusB,

Du kannst es z.B auch so machen:

Delphi-Quellcode:

// Alle Editfelder löschen
procedure TForm1.Button1Click(Sender: TObject);
var
  ndx : Integer;
begin
  for ndx := 0 to Self.ComponentCount-1 do  //Schleife durch alle Componenten
  begin
    if (self.Components[ndx] is TEdit) then  //ist es ein TEdit?
    begin
      (self.Components[ndx] As TEdit).Clear; //lösche den Inhalt
    end;
  end;
end;

// Alle Editfelder Anzeigen / Verstecken
procedure TForm1.Button2Click(Sender: TObject);
var
  ndx : Integer;
begin
  for ndx := 0 to Self.ComponentCount-1 do
  begin
    if (self.Components[ndx] is TEdit) then
    begin
      (self.Components[ndx] As TEdit).Visible := not (self.Components[ndx] As TEdit).Visible
    end;
  end;
end;