Array in csv schreiben

**hirsch**

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?

Array in csv schreiben

Array in csv schreiben

Forumregeln