Also so könnte man es in diesem Falle lösen - allerdings ist das keine gute Lösung...
Ich ändere das Dezimalkennzeichen "manuell" von Komma auf Punkt in einer For-Schleife...
Delphi-Quellcode:
//CSV-Datei für den UpLoad erstellen
FillAdvGrid(SG_Export, ColsAG, RowsAG);
WriteFile('
as400');
FCSVPfad:=FCSVPfad+'
AS400UPLOADFILE.CSV';
//decimalZahl von deutsch nach englisch ändern
for I := 0
to SG_Export.RowCount -1
do begin
SG_Export.Cells[21,I]:=StringReplace(SG_Export.Cells[21,I],'
,','
.',[rfIgnoreCase, rfReplaceAll]);
end;
SG_Export.SaveToCSV(FCSVPfad);
//CSV-Datei hochladen
LoadData(FCSVPfad, '
as400temp');
//CSV-Datei löschen
if not DeleteFile(FCSVPfad)
then ShowMessage('
Datei "'+FCSVPfad+'
" konnte nicht gelöscht werden!');
Wenn es einen charmanteren Weg gibt, bin ich daran sehr interessiert...
Vielen Dank
Patrick