Problem mit OpenDialog?

[AlexII]

Ich öffne wie folgt eine txt-Datei, aber irgendwas läuft da falsch, da der Inhalt der txt-Datei nicht geladen wird, wer weiß wieso?

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var i: Integer;
begin
if OpenDialog1.Execute then
begin
  List:=TStringList.Create;
  List2:=TStringList.Create;
  List2.Delimiter:='=';
  try
    List2.LoadFromFile(OpenDialog1.FileName);
    for i:=0 to List.Count-1 do
    begin
    List2.DelimitedText:=List[i];

    ListBox1.Items.Insert(i, List2[1]);
    ListBox2.Items.Insert(i, List2[2]);
    ListBox3.Items.Insert(i, List2[3]);
    ListBox4.Items.Insert(i, List2[4]);
    end;
  finally
    List.Free;
  end;

end;
end;

[mkinzler]

Du lädst die datei in die falsche Liste

Delphi-Quellcode:

    List.LoadFromFile(OpenDialog1.FileName);

Btw. List2 solltest du auch wieder freigeben

[AlexII]

Ok ich gucke mal.

[AlexII]

Wenn ich die List2 freigebe stürzt das Programm beim Close ab :gruebel:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i: Integer;
    s1,s2,s3,s4: String;
begin
List2.Clear;
//showmessage(listbox1.Items.Strings[0]);
for i:=0 to ListBox1.Count-1 do
begin
s1:=ListBox1.Items.Strings[i];
s2:=ListBox2.Items.Strings[i];
s3:=ListBox3.Items.Strings[i];
s4:=ListBox4.Items.Strings[i];

List2.Add('=' + s1 + '=' + s2 + '=' + s3 + '=' + s4 + '=');
end;
List2.SaveToFile(ExtractFilePath(ParamStr(0)) + '\Datei.txt');
end;

Oder muss ich die Liste hier neu createn? :gruebel:

[mkinzler]

Es wäre besser sie als lokale Variable hier neu zu erzeugen und dann wieder freizugeben

BTW. Eigentlich gilt hier: Neue Frage neuer Thread. :zwinker:

[AlexII]

Ok danke dir, jetzt klappt alles :thumb:

[mkinzler]

Kein Problem.

Aber das nächste mal bitte einen neuen Thread starten