Discussion :

[h_merine70]

Salut tous le monde
je voudrai signaler mon problème:
J'utilise Lazarus 3 et les composants ZEOSLiB pour se connecter à une base de données, la propriété
DisplayFormat du champs n'affiche pas de manière correcte la valeur monétaire avec les valeurs suivantes:
la valeur de la propriété BiDiMode = bdRightToLeft, de la fiche et les paramètres régionales sont comme suit
ThousandSeparator = ' ' //** Espace **//
DecimalSeparator = ',' //** Virgule**//

par exemple la valeur 25 500,52 est affichée ainsi 500,52 25

Veuillez s'il vous plait m'aider à corriger ce problème.
toutes mes salutations

[Andnotor]

Comment veux-tu qu'il y ait formatage numérique sur un champ texte ?

La structure de la DB est à revoir.

[h_merine70]

Je ne crois pas que cela ait à voir avec la structure de la BD, le champs est Extended.
Car avec BiDiMode = bdLeftToRight la valeur est affichée correctement.

Code :

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

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
Var x: Extended;
begin
  x:= StrToFloat(Edit1.text);
  Edit2.Text:=FloatToStrF(x, ffNumber, 18, 2);
end;

[ChPr]

Je ne comprends pas, Vous êtes bien un lecteur occidental, c'est-à dire que vous lisez de gauche à droite. Alors pourquoi vouloir utiliser "BiDiMode = bdRightToLeft". C'est "BiDiMode = bdLeftToRight" qu'il faut utiliser. Par contre, si vous voulez un cadrage à droite, c'est "Alignment = taRightJustify". Ou alors, je n'ai rien compris.

Cordialement.

Pierre.

[h_merine70]

je travaille sur un projet en arabe, et je dois afficher les forms de droite à gauche (BiDiMode = bdRightToLeft), j'ai essayé "Alignment = taRightJustify" mais ça ne marche pas lorsque le séparateur de millier = espace qui est exigé
Remarque : avec DELPHI tous marche trés trés bien

[ChPr]

je travaille sur un projet en arabe, ...

C’aurait été sympa de le préciser d'entrée de jeu.

Cordialement.

Pierre