Inhalt einer txt Datei mit TStringList richtig auslesen?

[AlexII]

Hab schon gefunden, pardo. Hab das jetzt wie folgt:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  List:=TStringList.Create;
  try
    List.LoadFromFile('C:\Datei.txt');
    for i := 0 to List.Count-1 do
    {s:=List[i];
    Pos1:=Pos('=', s);
    Pos2:=PosEx('=', s, Pos1+1);
    Pos3:=PosEx('=', s, Pos2+1);
    Pos4:=PosEx('=', s, Pos3+1);
    Pos5:=PosEx('=', s, Pos4+1);
    s2:=Copy(s, Pos1+1, Pos2-Pos1-1); }

    ListBox1.Items.Insert(i, Copy(List[i], Pos('=', List[i])+1, PosEx('=', List[i], Pos('=', List[i])+1) - Pos('=', List[i])-1));
  finally
    List.Free;
  end;
end;