String mit Leerzeichen verursacht Chaos???

[mkinzler]

So sollte es gehen:

Delphi-Quellcode:

...
var
  tf: textFile;
...
  AssignFile( tf, ExtractFilePath(ParamStr(0)) + '\Datei.txt');
  Reswrite( tf);
  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];
    WriteLn( tf, '=' + s1 + '=' + s2 + '=' + s3 + '=' + s4 + '=');
  end;
...

getippt und nicht getestet