Record in .csv Datei schreiben

[chris1908]

hallo!

möchte in einer zeile 3 spalten mit daten befüllen und dann in die nächste zeile wechseln diese wieder mit 3 zeilen zu befüllen usw. jedoch werden nach der zweiten zeile alle restlichen daten in eine spalte geschrieben und durch ein viereck (carriage return) dargestellt, hab schon alles versucht, sogar ein steuerzeichung für das carriage return einzugeben (wie zb. in c/c++ '\n') was jedoch auch nicht wirklich funktioniert hat.

hab mein csv-testfile als attachment hinzugefügt...

kleiner auszug aus meinem quellcode:

Delphi-Quellcode:

while (ws.Cells.Item[i_i,i_j].text <> '') do
  begin
    str := '';
    str :=ws.Cells.Item[i_i,i_j+1].Text;

    if (i_count > 1) then str_tmp := str_tmp + ';' +ws.Cells.Item[i_i,i_j].Text
    else str_tmp := ws.Cells.Item[i_i,i_j].Text;

    if (i_count = 3) then
      i_count:=0;

    if (i_j mod 3 = 0) then
    begin
      memo1.Lines.Add(str_tmp);

      assignfile(f_datei,s1);
      append(f_datei);
      writeln(f_datei,str_tmp);
      closefile(f_datei);
      str_tmp := '';
    end;

    if (str = '') then
    begin
      i_j := 0;
      inc(i_i);
    end;
    inc(i_j);
    inc(i_count);
  end;

danke im voraus!