aus einer textfile wieder in die edits einlesen!

[Bruce86]

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:

Delphi-Quellcode:

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

[Bruce86]

und dies ist meine speichernprozedur

Delphi-Quellcode:

procedure TForm1.SaveClick(Sender: TObject);
  var
    List: TStringList;
    i: Integer;
begin
  List := TStringList.Create;
  try
    for i := 1 to 34 do
      List.Add(TEdit(FindComponent('Edit'+IntToStr(i))).Text);
    List.SaveToFile('C:\Datei.txt');
  finally
    List.Free;
  end;
end;

[Jelly]

Zitat:

Zitat von Bruce86

Delphi-Quellcode:

with TEdit(FindComponent( 'Edit' + IntToStr( i)) ) do 
  begin 
  Edit1.Text:=List[0]; 
  end;

Du machst doch schon ein Findcomponent, und kannst innerhalb der with- Schleife darauf zugreifen. Du schreibst aber trotzem statisch immer das Feld List[0] in das Edit1 control. Probiers mal so:
with TEdit(FindComponent( 'Edit' + IntToStr( i)) ) do

Delphi-Quellcode:

begin 
  Text:=List[i-1]; 
 end;

Beachte aber noch eins: Wenn du die StringList lädst, so beginnt die Items Indexierung bei 0. Dein erstes Element ist demnach List[0] und nicht List[1]. Deshalb das i-1 in meinem Quelltext. Beim Schreiben musst Du da natürlich auch drauf achten.

[Thorben_K]

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 
  TEdit(FindComponent( 'Edit' + IntToStr( i))).Text := List[i]; 
  end; 
  finally 
  List.Free; 
end; 
end;

[Bruce86]

Hey Super! klappt!!!! DANKE!!!!!!!!!!!! Manchmal kann das Problem eine ganz einfach lösung haben! oder wie heißt es gleich:"man sieht den wald vor lauter bäumen nicht!"

Hätte nur noch eine ergänzende frage! bei meiner bisherigen Prozedur ist der dateiname und speicherort vorgegeben wie kann ich das mit einem savedialog und opendialog in diese prozedur einbinden? also würde es sozusagen gerne erweiten mit einem save- und opendialog! wie muss ich dazu meinen quelltext verändern?

[Bruce86]

OK Hatte bei mir nur nen fehler im Denken eben gehabt! Funktioniert nun auch mit SaveDialog und OpenDialog!!!!!! Vielen Dank