Ich hab das Problem wo anders gefunden, die Strings werden doch richtig und mit Leerzeichen gespeichert, geladen werden sie falsch und ich dachte sie wurden falsch abgespeichert, verzeiht. Hier werden die Strings mit den Leerzeichen durcheinander gebracht:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
List : TStringList;
List2: TStringList;
begin
List:=TStringList.Create;
List2:=TStringList.Create;
List2.Delimiter:='=';
try
List.LoadFromFile(ExtractFilePath(ParamStr(0)) + '\Datei.txt');
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;
List2.Free;
end;
end;