Discussion :

[Oncle_Pete]

Bonjour le Forum

Je dois effectuer des Update dans un BD qui n'accepte que le '.' point decimal comme separateur.
J'ai donc utilise la syntaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Var 
   FormatSettings : TFormatSettings;
   MonPrix:Real;
   sReqMAJ:string;
begin
    FormatSettings.DecimalSeparator := '.';
    MonPrix:=FieldByName('GA_PMRP').AsFloat;
    sReqMAJ:='UPDATE activite SET act_pupr = '+floattostr(MonPrix,FormatSettings)+' , ' .....

Lorsque je trace le contenu de ma variable sReqMAJ dans un fichier txt, j'ai la ligne :
49 Enregs ont été modifiés sur le SQL
UPDATE activite SET act_pupr = 228 67 , .....

Pourquoi ai-je 228 67 au lieu de 228.67 ?
Que me manque-t-il ?
merci a vous ?

Oncle_pete

[Cl@udius]

Salut

Tu dois initaliser la structure FormatSettings par un appel à GetLocaleFormatSettings.

GetLocaleFormatSettings remplit FormatSettings en fonction de l'identificateur de localisation Windows spécifiédans LCID.Une structure de données TFormatSettings doit être initialisée par un appel àGetLocaleFormatSettings afin qu'elle puisse être utilisée avec les routines de formatage de chaîne.

Donc je te propose:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Var 
   FormatSettings : TFormatSettings;
   MonPrix:Real;
   sReqMAJ:string;
begin
    GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, FormatSettings);
    FormatSettings.DecimalSeparator := '.';
    MonPrix:=FieldByName('GA_PMRP').AsFloat;
    sReqMAJ:='UPDATE activite SET act_pupr = '+floattostr(MonPrix,FormatSettings)+' , ' .....
end;

@+ Claudius

[Oncle_Pete]

Merci Claudius40

Oncle_Pete

[iam]

salut
est ce que je peux savoir ou vous avez mis ce code, dans quelle partie de ton programme, car je veux utiliser le decimalseparator par defaut dans mon programme
merci

[Cl@udius]

Salut,

Je tu veux juste savoir quel est le séparateur décimal utilisé par ton programme, tu peux le récupérer ainsi:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  MonSeparateur := DecimalSeparator;  // La variable étant de type Char

@+ Claudius