Hallo Zusammen,
vielen Dank für die Antworten. Ich habe mir den anderen Beitrag durchgelesen und versucht für mich anzuwenden - leider ohne Erfolg. Nachstehend mein Code:
Delphi-Quellcode:
//CSV-Datei für den UpLoad erstellen
System.SysUtils.FormatSettings.DecimalSeparator := '
.';
//Hier stelle ich das Setting um
Application.UpdateFormatSettings := false;
FillAdvGrid(SG_Export, ColsAG, RowsAG);
//Hier wird das temproäre StringGrid befüllt
WriteFile('
as400');
FCSVPfad:=FCSVPfad+'
AS400UPLOADFILE.CSV';
SG_Export.SaveToCSV(FCSVPfad);
//Hier wird die CSV-Datei erstellt
//CSV-Datei hochladen
LoadData(FCSVPfad, '
as400temp');
//Hier wird die CSV-Datei in den MySQL-Server hochgeladen
Application.UpdateFormatSettings := true;
//Hier stelle ich das Setting wieder um
System.SysUtils.FormatSettings.DecimalSeparator := '
,';
//CSV-Datei löschen
if not DeleteFile(FCSVPfad)
then ShowMessage('
Datei "'+FCSVPfad+'
" konnte nicht gelöscht werden!');
Leider wird bei der Erstellung der
CSV-Datei immer noch aus 4.23 "4,23" gemacht. Hat jemand dazu eine Idee?
Vielen Dank
Patrick