Wie kann ich mehrere Edit (tedit) zusammenfassen

[DeddyH]

Quick and Dirty:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 10 to 43 do 
    TEdit(FindComponent('Edit' + IntToStr(i))).Visible:=true;
end;

Oder aber Du deklarierst Dein Array global bzw. als Feld des Formulars und fügst die Edits dort initial ein. Anschließend musst Du dann nur noch dieses Array durchlaufen.

Delphi-Quellcode:

var
  Edits: array[10..43] of TEdit;

...

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  for i := Low(Edits) to High(Edits) do 
    Edits[i]  := FindComponent('Edit' + IntToStr(i));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := Low(Edits) to High(Edits) do 
    Edits[i].Visible:=true;
end;