Discussion :

[bidson]

je veux formater mes données à l'écran en décimal (1 dec) et en monétaire (4 dec) donc ds le xmlgran j'utilise le champ "format" ds le table des champs avec les caractéristiques suivantes :

%.1f et %.4m

1 / ça marche bien sauf que les valeurs nulle ne sont pas affichées et si je vire ces formatage elle apparaissent (0).

2 / kel type de formatge existe t'il autrement ?

[RDM]

1/ bug connnu:
http://www.developpez.net/forums/viewtopic.php?t=81468

2/ les formatages standard delphi. voir l'aide pour cela.

[bidson]

J'ai bien trouvé la fonction FormatCultureFloat ds xmlutils.pas, aussi dans mon prog delphi je fais :

Context.SetValue('PBRUT', FormatCultureFloat(Context.GetValue('PBRUT')));

Mais j'ai le message d'erreur : type icompatible widestring & IXMLrequest ; normal au vue de la structure de la fonction FormatCultureFloat(Request: IXMLRequest; FloatFormat: WideString; Float: Double): WideString;

Est-ce bien ds Delphi que j'utilise cette fonction ? quels arguments me manquent-ils alors ?
Dois laisser ds mon xmlgram le formar %.1f ?

[Nicolas.Cogi]

FormatCultureFloat s'utilise comme suit :

Code :

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

FormatCultureFloat(XMLRequest, '%1.f', Context.Values['PBrut']);

RDM voulait dire dans son post que les chaines de formatage de XMLRAD etaient les memes que dans Delphi. Recherche dans l'aide Delphi "Format strings" et tu trouveras ton bonheur.

[bidson]

La fonction FormatCultureFloat a pour dernier argument un double et je lui envoie Context.GetValue('PBRUT') qui est un widestring aussi à la compile j'ai une erreur de type !

Context.SetValue('PBRUT', FormatCultureFloat(XMLRequest, '%1.f', Context.GetValue('PBRUT')));

[Nicolas.Cogi]

Euh, voui.
Et bien alors :

Code :

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

1
2
3
4
5
6
7
8
 
var
  Num: Double;
begin
  Num := StrToFloat(Context.Values['PBrut']);
  FormatCultureFloat(XMLRequest, '%1.f', Num);
  ...
end;

[bidson]

c'est ce que j'ai fais mais je pensais qu'il y avait une solution sans passer par une variable !

Merci

[bidson]

Mon prog sous Delphi compile bien mais les zéros ne s'affiche toujours pas sur mon datagrid!

Je mets l'instruction suite ds le before Xmlgram :
Context.SetValue('PNET', FormatCultureFloat(XMLRequest, '%1.f', StrToFloat(Context.GetValue('PNET'))));

et j'ai le message d'erreur :
'' n'est pas une valeur en virgule flottante correcte

ça se comprend car si je regarde le XML généré aucune valeur n'est dans ma grappe XML, bien que ds ma base de données il y ait "0" ; donc il arrive pas à faire l'opération sur ''.

???? .....

[RDM]

http://www.developpez.net/forums/viewtopic.php?t=81468

[bidson]

Je suis désolé, mais je comprends pas la réponse fournie !

J'ai une unité XmlUtils avec une function FormatCultureFloat que j'utilise. Dans la réponse fournie tu écris le code :

begin
- Result := '';
+ Result := '0';
if Float = 0.0 then Exit;

alors que ds XmlUtils, on a seulement :

Result := '';
if Float = 0.0 then Exit;

Que veulent dire les signes (-) et (+) devant "result" et que faut-il faire clairement : modifier la function FormatCultureFloat, en écrire une nouvelle. Je suis pas très fufute ou je tourne autour du pot mais tout ce que j'essaie plante !

Merci

[Pierre FORAZ]

Si je lis bien, ce devrait être :
Result := '0';
if Float = 0.0 then Exit;

[RDM]

le moins devant indique qu'il faut retirer cette ligne qui était existante
le plus indique qu'il faut ajouter cette nouvelle ligne

donc avant:

Code :

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

1
2
3
begin 
  Result := ''; 
  if Float = 0.0 then Exit;

après

Code :

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

1
2
3
begin 
  Result := '0'; 
  if Float = 0.0 then Exit;

ce traduit en condensé par

Code :

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

1
2
3
4
begin 
- Result := ''; 
+ Result := '0'; 
  if Float = 0.0 then Exit;

[bidson]

J'ai fini par comprendre, avec le temps j'apprendrais de mieux en mieux ! rien ne vaut l'empirisme !
Bon, j'ai bien un zéro qui s'affiche, mais il ne prend pas le format voulu ! En effet, j'ai des poids qui sont formaté avec 1 décimale, même pour un poids nul car à l'affichage il y a un décallage, c'est pas très propre !
Avez-vous le même résultat que moi ou les valeurs nulles sont elles formatées correctement ?
Mais je peux attendre la RC4 tranquillement car cet été c'est réplication et VACANCES ... en métropole !

[RDM]

hmm alors retire le

Code :

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

if Float = 0.0 then Exit;