Ich dachte, dass es einfach ist den Ihnalt eines Array's in eine csv zu schreiben, denn umgekehrt ist es das.
Was ich habe:

zusammenfalten · markieren

Delphi-Quellcode:

  AssignFile(output1, Ordner+'A.csv');
  if FileExists('A.csv') then begin
    reWrite(output1,'A.csv');
  end else begin
    FileCreate(Ordner+'A.csv');
  end;
  Reset(output1);


  for i := 0 to laenge-1 do begin
    if trim(FeldZeile[i,2])<>'' then
      zeile:=FeldZeile[i,0]+';'+FeldZeile[i,1]+' '+FeldZeile[i,2]+';'+FeldZeile[i,3]+';'+FeldZeile[i,4]
    else
      zeile:=FeldZeile[i,0]+';'+FeldZeile[i,1]+';'+FeldZeile[i,3]+';'+FeldZeile[i,4];
    append(output1);
    WriteLn(output1,Zeile);
  end;
  CloseFile(output1);
  Setlength(FeldZeile,0,0)

Das Seltsame daran ist, dass es auf dem Entwickler-PC funktioniert, aber dort auf dem Fileserver, wofür ich das gemacht habe, bekomme ich immer einen E/A-Fehler 32.
Der Programmbenutzer hat an dieser Stelle volles schreib.- und änderungsRechte.
Kann mir da jemand bitte helfen?

rewrite : Erstellt eine neue Datei und öffnet sie anschließend.
reset : Öffnet eine vorhandene Datei.

Also:

markieren

Delphi-Quellcode:

if FileExists(Ordner + 'A.csv') then begin
     Reset(output1);
   end else begin
     reWrite(output1);
   end;

Ich würde als erstes mal aufräumen, ob "Ordner" nun zum Dateinamen gehört oder nicht, das wechselt derzeit in jeder Zeile.

Ok, klingt logisch, DANKE.

Ich habe die IF gelöscht, dafür nur noch
reWrite(output1,Ordner+'A.csv'); Soll ja auch so sein, immer überschreiben...

Wenn du eine CSV nach RFC 4180 erzeugen möchtest, dann packe für jede Zeile alle Felder in eine TStringList und schreibe dann den TStringList.DelimitedText als resultierende Zeile. Die Stringlist kümmert sich dann auch um das korrekte Setzen des TStrings.QuoteChar und TStrings.Delimiter und du brauchst dir keinen Kopf machen.

Umgekehrt funktioniert das leider nur unter der Bedingung, wenn kein Feld einen Zeilenumbruch beinhalted

Zitat von Sir Rufo:

Wenn du eine CSV nach RFC 4180 erzeugen möchtest, dann packe für jede Zeile alle Felder in eine TStringList und schreibe dann den TStringList.DelimitedText als resultierende Zeile. Die Stringlist kümmert sich dann auch um das korrekte Setzen des TStrings.QuoteChar und TStrings.Delimiter und du brauchst dir keinen Kopf machen.

Du meinst doch sicher TStringList.CommaText, oder?