hmm, ich versteh Findcomponent nicht

[Jens Schumann]

Hallo,
versuch es mal so

Delphi-Quellcode:

...
var
  aComponent : TComponent;
begin
For iCnt:=1 to 6 do
  begin
  aComponent:=FindComponent('Edit1'+IntToStr(iCnt));
  If aComponent is TEdit then
    ShowMessage(TEdit(aComponent).Text);
  end;
end;