FormatFloat un peu rebelle

Version imprimable

24/05/2006, 10h17
forzaxelah

FormatFloat un peu rebelle

Bonjour,

J'ai un petit probleme d'incompréhension.

Je formate un Edit sous la forme :

Code:

NbKmAn_Edit.Text := FormatFloat('###,###,000,00',FieldByName('Nb_Km_Annuel').AsFloat);

Le Hic, c'est que lors de l'éxecution quand il ya "250000" dans la base en type float,

il me marque : "250 000"

or grâce aux "0" je devrais avoir : "250 000,00"

Ou est le probleme??? Comprenez vous?
24/05/2006, 10h46
TicTacToe

essaye ceci peut être

Code:

'###,###,##0.00'
24/05/2006, 11h31
Rayek
normalement
Code:

1 2 '### ###.00'
ca devrait être suffisant

Seulement quand je veux faire un update il y a erreur!

Un petit exemple..??

voici le champ concerné

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
WITH  DataModule1.QParamMP DO
BEGIN
SQL.clear;
SQL.add('SELECT * FROM ID_M');
SQL.Add('WHERE Nom_Pas = '+ QuotedStr(zo2) +'');
SQL.Add('AND ID_Engin_FK2 = '+ QuotedStr(IDLoco_Edit.Text));
Open;
NivMP_Edit.Text :=  FieldByName('Niveau_M').Value;
PasNominal_Edit.Text :=   FormatFloat('#,###,###.00',FieldByName('Pas_Nominal').AsFloat);
Rema_Edit.Text :=   FieldByName('Remanence').Value;
EspMax_Edit.Text :=  FormatFloat('#,###,###.00',FieldByName('Espac_Max').AsFloat);
Tolerance_Edit.Text :=  FieldByName('Tolerance').Value;
Lmax_Edit.Text :=   FormatFloat('#,###,###.00',FieldByName('Limit_Max').AsFloat);
DesPas_Edit.Text :=   FieldByName('Descr_Pas').Value;
NomPas_Edit.Text :=   FieldByName('Nom_Pas').Value;
Atelier_ComboBox.Text := FieldByName('Atelier_Directeur').Value;
Depot_ComboBox.Text := FieldByName('Depot_Titulaire').Value;
END;

On appelle donc ses valeurs.

Et quand je fais un update sur ces valeurs préformatés comme suit :

(je mets volontairement toute la procédure au cas où:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Try
Nb_Km_Annuel := StrToFloat(NbKmAn_Edit.Text);
Remanence := StrToFloat(Rema_Edit.Text);
Tolerance := StrToFloat(Tolerance_Edit.Text);
Pas_Nominal := StrToFloat(PasNominal_Edit.Text);
Espacement_Maximal := Pas_Nominal + (Pas_Nominal*Tolerance)/100;
Limite_Maximale := Espacement_Maximal + Remanence*(Nb_Km_Annuel/52);
except
begin
Tolerance_Edit.Text := '';
Rema_Edit.Text :='';
NbKmAn_Edit.Text := '';
PasNominal_Edit.Text := '';
end;
end;
begin
EspMax_Edit.Text := FloatToStr(Espacement_Maximal);
LMax_Edit.Text := FloatToStr(Limite_Maximale);
zo := combobox1.Items[combobox1.ItemIndex];
WITH DataModule1.QMAJ DO
BEGIN
SQL.clear;
SQL.add('UPDATE ID_M');
SQL.Add('SET Nom_Pas =:Nom_Pas   , Depot_Titulaire =:Depot_Titulaire ,  Atelier_Directeur =:Atelier_Directeur,');
SQL.Add('    Niveau_M =:Niveau_M   , Descr_Pas =:Descr_Pas,');
SQL.Add('    Pas_Nominal =:Pas_Nominal  , Tolerance =:Tolerance  , Espac_Max =:Espac_Max,');
SQL.Add('    Remanence =:Remanence ,Limit_Max =:Limit_Max');
SQL.Add('WHERE ID_Engin_FK2 = '+ QuotedStr(zo));
Paramcheck := True;
ParamByName('Nom_Pas').AsString :=  NomPas_Edit.text;
ParamByName('Depot_Titulaire').AsString :=  Depot_ComboBox.text;
ParamByName('Atelier_Directeur').AsString :=  Atelier_ComboBox.text;
ParamByName('Niveau_M').AsSmallInt :=  StrToInt(NomPas_Edit.text);
ParamByName('Descr_Pas').AsString :=  DesPas_Edit.text;
ParamByName('Pas_Nominal').AsFloat :=  StrToFloat(PasNominal_Edit.text);
ParamByName('Tolerance').AsInteger :=  StrToInt(Tolerance_Edit.text);
ParamByName('Espac_Max').AsFloat :=  Espacement_Maximal;
ParamByName('Remanence').AsInteger :=  StrToInt(Rema_Edit.text);
ParamByName('Limit_Max').AsFloat :=  Limite_Maximale;
ExecSQL;
END;

J'ai droit à l'erreur :

EConvertError avec le message "300 000,00' n'est pas une valeur en virgule flottante correcte

Rappel: 300 000,00 est le champ Pas nominal qui est un réelle.

30/05/2006, 13h28
Pedro

Salut :D

Citation:

Envoyé par forzaxelah

EConvertError avec le message "300 000,00' n'est pas une valeur en virgule flottante correcte

C'est normal: '300 000,00' n'est pas un réel mais '300000,00' en est un ;)
C'est juste la mise en forme (l'espace) que tu dois modifier ;)
Contrôle aussi si tu as bien une "," et pas un "." comme séparateur dans tes paramètres régionaux, parce que ça rentre aussi en ligne de compte.
Si c'est le cas, tu peux changer ce paramètre localement dans ton programme en initialisant

Citation:

DecimalSeparator := ',';

Voila
30/05/2006, 13h39
forzaxelah

:roll: c'est bien ce que je pensais...

Donc je dois reformater pour passer de 300 000,00 à 300000,00 , mais comment faire???

Par ailleurs n'y a t-il pas une astuce pour pouvoir mettre l'espace mais sans modifier la valeur propre en elle-meme mais juste en "surface" ???
Par exemple, la meme chose qu'un composant avec son Text et son Name... on ne modifierait que le Text et pas le Name.... (si vous m'avez suivi bravo, j'en ai du mal a lire...:aie: )
30/05/2006, 13h39
maamar1979

probleme déja poser

va voir ici ;)

http://www.developpez.net/forums/sho...91&postcount=5

salam
30/05/2006, 13h42
Pedro

Citation:

Envoyé par forzaxelah

Donc je dois reformater pour passer de 300 000,00 à 300000,00 , mais comment faire???

C'est simple: :f1: et AnsiReplaceStr ;) (tu remplaces le ' ' par rien)

Citation:

Envoyé par forzaxelah

Par ailleurs n'y a t-il pas une astuce pour pouvoir mettre l'espace mais sans modifier la valeur propre en elle-meme mais juste en "surface" ???

A part créer une routine qui le fait tout seul, je vois mal comment faire :?

Citation:

Envoyé par forzaxelah

Par exemple, la meme chose qu'un composant avec son Text et son Name... on ne modifierait que le Text et pas le Name.... (si vous m'avez suivi bravo, j'en ai du mal a lire...:aie: )

Là je comprends moins :?