Discussion :

[Jean-Jacques Engels]

Hi,

Je souhaiterais pouvoir aligner sur la virgule, dans une colonne, une série de valeurs avec décimales. Il me faudrait donc une chaine de caractères alignés sur la virgule et complétée avec des espaces à gauche afin d'obtenir une chaîne qui a toujours la même longueur.

Code :

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

 Format('%8.2F', [2.56]) et Format('%8.2F',[32.56])

...me retournent des chaines de longueur différente (impossible donc de les aligner sur le point décimal). Cela me donne ceci :

Code :

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

1
2
2.56
32.56

alors que je voudrais ceci :

Code :

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

1
2
 2.56
32.56

Qui a la solution ?

Merci.



JJE

[Montor]

Code :

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

S:= Format('%5s',[Format('%.2F',[32.56])]);

[Paul TOTH]

Sous Delphi 6 j'obtiens bien deux chaînes de 8 caractères dont 2 décimales

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.FormCreate(Sender: TObject);
var
  s1 : string;
  s2 : string;
begin
  s1 := Format('%8.2F', [2.56]);
  s2 := Format('%8.2F', [32.56]);
  ShowMessage( s1 + '(' + IntToStr(Length(s1)) + ')' + #13#10 + s2 + '('+IntToStr(Length(s2))+')');
end;

[guillemouze]

essaye peut etre ca :

Code :

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

s1 := Format('%-8.2F', [2.56]);

ou alors, c'est peut etre que ta font n'est pas à pas fixe

[Jipété]

Bonsoir,

Hi,

Je souhaiterais pouvoir aligner sur la virgule, dans une colonne, (...)

As-tu bien pensé à sélectionner l'alignement de ta colonne (je suppose que tu utilises une Listview en mode vsReport) à taRightJustify ? J'utilise ça très souvent et ça fonctionne tip-top, plus le remplacement de "F" par "N", comme ça tu as automatiquement le séparateur des milliers, et c'est bien plus joli !

[Stevens.Georges]

Ci-dessous le code que j’utilise, à toutes fins utiles.

Code :

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

TextOut(XA-AlignaD(Val),Y*16,Format('%n',[ Val])) ;

Avec :
Val valeur à imprimer (currency ou single)
Y numéro de la ligne (integer) et 16 intervalle en pixels.
XA pour positionner toutes les impressions (constante)

Code :

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

1
2
3
4
5
6
7
8
9
function AlignaD(V:currency):integer;
var S:string;
    N:integer;
begin
  S:=Format('%n',[V]);
  N:=Length(S);
  S:=Copy(S,1,N-2);
  Result:=Form1.Canvas.TextWidth(S);
end;

L'impression se fait sur Form1.Canvas.
Si elle se fait sur une imprimante tu devrais facilement faire les modifications
nécessaires.

Il y a peut-être plus simple.

[Montor]

je ne vois pas l'intérêt de la chose il peut aligner le texte a droit pour régler le problème

[BuzzLeclaire]

je ne vois pas l'intérêt de la chose il peut aligner le texte a droit pour régler le problème

+1

Surtout qu'il affiche apparement toujours 2 chiffre après la virgule.

[Caribensila]

Salut,

Code :

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

...Font.Pitch := fpFixed;

[Jean-Jacques Engels]

Hi,

Toutes mes confuses pour le retour tardif.

La solution était... évidemment... de prendre une police non proportionnelle !

Merci pour vos réponses.



JJE

[adelneo]

n'oublies pas d'ajouter