Hallo Zusammen,
etwas amüsiert, hänge ich an einem Fehler in meiner Software fest und hoffe, dass mir jemand helfen kann. So etwas habe ich noch nicht erlebt...
In einer Function erstelle ich aus einem zweidimensionalen Array eine
csv-Datei. Das klappt auch wunderbar und ist nicht die erste Function dieser Art in meiner Software.
Um zu ermitteln, wo die Datei gespeichert werden soll, wird der Pfad ermittelt, in dem die Software liegt - auch kein Problem. Witzigerweise wird aber genau in diesem Moment in die dirtte Spalte meines Arrays und immer in der Zeile "223" der Pfad abgelegt...
Ich habe zwei Screenshots mit angehängt, aus denen alles ersichtlich sein sollte...
Hier noch die ganze Function:
Delphi-Quellcode:
function SaveToCSVLiefer(
var Cols: TCols;
var Rows: TRows):Boolean;
var SD : TSaveDialog;
I : Integer;
CSV : TStrings;
query, FileName :
String;
Pfad:
string;
begin
Pfad:=ExtractFilePath(Application.ExeName)+'
Daten\';
FileName:=Pfad+'
Lieferupload.csv';
//Stringliste erzeugen
CSV := TStringList.Create;
//Stringliste füllen
For I := 0
To Length(Rows[0]) - 1
Do
begin
CSV.Add(Rows[0,I]+'
,'+
'
"'+Rows[1,I]+'
"'+'
,'+
'
"'+Rows[2,I]+'
"'+'
,'+
Rows[3,I]+'
,'+
Rows[4,I]+'
,'+
'
"'+Rows[5,I]+'
"'+'
,'+
Rows[6,I]+'
,'+
Rows[7,I]+'
,'+
Rows[8,I]+'
,'+
Rows[9,I]+'
,'+
'
"'+Rows[10,I]+'
"'+'
,'+
Rows[11,I]+'
,'+
'
"'+Rows[12,I]+'
"'+'
,');
end;
//CSV speichern
CSV.SaveToFile(FileName);
Result := True;
CSV.Free;
end;
Hat jemand eine Idee?
Vielen Dank
Ykcim