Gut, das klappt, vielen Dank. Aber das Programm funktioniert immer noch nicht so wie es soll. Ich habe das Programm mal folgendermaßen verändert:
Delphi-Quellcode:
procedure TForm4.FormCreate(Sender: TObject);
var i: Integer;
begin
for i:= 1 to 5 do
begin
a[i]:= TEdit(Form3.FindComponent(IntToStr(i)));
Form3.Edit1.Text:='test';
showmessage(TEdit(Form3.FindComponent(IntToStr(i))));
end;
end;
Die Showmessage hat aber kein Ergebniss, also verweist TEdit(Form3.FindComponent(IntToStr(i))) auch nicht auf Form3.Edit1.Text mit dem Inhalt 'test'. Der Fehler müsste ja in dem FindComponent Teil liegen.