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;