Ich dachte, dass es einfach ist den Ihnalt eines Array's in eine
csv zu schreiben, denn umgekehrt ist es das.
Was ich habe:
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?