Delphi-Quellcode:
procedure TForm1.LoadClick(Sender: TObject);
var
List: TStrings;
i:integer;
begin
List := TStringList.Create;
try
List.LoadFromFile('C:\Datei.txt');
for i := 1 to 34 do
begin
with TEdit(FindComponent( 'Edit' + IntToStr( i)) ) do
begin
Edit1.Text:=List[0];
end;
end;
finally
List.Free;
end;
end;
hi leute das ist meine laden prozedur! doch hier lädt er nur in das erste edit! er soll aber in die edits zurück lesen wo ich die daten eingeschrieben habe! Könnt ihr mir bitte weiterhelfen?
denke mal der fehler liegt hier:
Edit1.Text:=List[0];
doch wenn ich anstatt der null ne eins setzte bricht er ab und wenn ich es mit TEdit(i) versuche bricht er auch ab!
bitte helft mir
unten ist nen screenshot zu unterstützung meines problems
MFG
Bruce86