Funkcja Format - pytanie

[Corvis]

Witam,

Tworzę sobie zapytanie SQL: (nie daje całego kodu bo nie ma potrzeby)

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

String SQL = Format("call pdokMatDodajPozycjeDokumentacji(%d,%d,%d,%f,%d,'%s');",OPENARRAY(TVarRec,(cdsDokMatNaglowki->FieldByName("idDokMat")->AsInteger,p.Lp,p.IdIndeksu,p.Ilosc,p.IdJednostki,p.Uwagi)));
 

p.Ilosc jest liczbą double. Problem polaga na tym że po sformatowaniu otrzymuję:

call pdokMatDodajPozycjeDokumentacji(3,1,95,1,00,1,'');

ilosc = 1,00 a powinna być 1.00 wie ktoś może jak to przeskoczyć, że formatował liczy po kropce nie po przecinku ??

Pozdrawiam

[Cyfrowy Baron]

To zależy od ustawień w aplecie Opcje regionalne i językowe. Można oczywiście wymusić by program używał jako separatora dziesiętnego kropki zamiast przecinka.

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

 String sText = "call pdokMatDodajPozycjeDokumentacji(%d,%d,%d,%f,%d,'%s');";

 int sDM = 3, sLp = 1, sIdIndeksu = 95, sJednostki = 1;
 String sUwagi = "";
 double dIlosc = 1;

 TVarRec tVR[] = {sDM, sLp, sIdIndeksu, dIlosc, sJednostki, sUwagi};


 TFormatSettings fs;
// GetLocaleFormatSettings(0, fs);   - to zbędne
 fs.DecimalSeparator = '.'; /* ustawienie kropki jako separatora dziesietnego */

 String SQL = Format(sText, tVR, ARRAYSIZE(tVR), fs);

 Edit1->Text = SQL;

Nie powoduje to żadnych zmian w systemie, anie nawet globalnie w całym programie. Zmiana przecinka na kropkę dotyczy tylko tego fragmentu kodu. Można tego kodu używać zawsze, czyli nawet wtedy, gdy w systemie masz ustawioną kropkę.

[Corvis]

Dzięki baronie