Allgemeine Frage zu einer Schleife

[dataspider]

Hi,

es geht auch mit FindComponent:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
Var
  i : Integer;
  AComponent: TComponent;
  f3 : TextFile;
begin
  ...
  ...
  for i:= 1 to 3 do
  begin
    AComponent := FindComponent('Edit'+IntToStr(i));
    if (Assigned(AComponent) and (AComponent is TEdit) and
        (TEdit(AComponent).Text <> '')) then
      writeln(f3,TEdit(AComponent).Text);
  end;
end;

Cu, Frank