Hallo,
ich speichere wie folgt die Einträge einer ListBox in eine txt-Datei:
Delphi-Quellcode:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i: Integer;
s1,s2,s3,s4: String;
List: TStringList;
begin
List:=TStringList.Create;
try
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];
List.Add('=' + s1 + '=' + s2 + '=' + s3 + '=' + s4 + '=');
end;
List.SaveToFile(ExtractFilePath(ParamStr(0)) + '\Datei.txt');
finally
List.Free;
end;
end;
Befindet sich allerdings in einem der Einträge der ListBox ein Leerzeichen wird das nächstfolgende Wort nicht mehr z.B. dem s1-String zugewiesen, sondern dem s2. Im s2 dem s3.
Wer weiß woran es liegt?
