Discussion :

[K20]

Bonjour tout le monde !

Voilà, j'ai un petit problème avec les pourcentage ...

J'ai une grille composée de 225 cases (ce nombre peut varier)
Quand je clique sur une case ça occupe cette case par un "objet".

J'ai fait un Label qui permet d'afficher le taux d'occupation de ma grille.

Quand je clique sur une case j'ai une procédure qui augmente à chaque fois le pourcentage d'occupation.
La procédure ressemble à ça :

Code :

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

1
2
3
4
5
6
7
8
procedure Ts_editeur.Infos(Champ : TLabel; nb : integer);
var
  nb_cases : integer;
begin
 
// Affichage de l'info
  Champ.Caption := FloatToStr (StrToFloat(Champ.Caption) + (nb * 100) / 225);
end;

La variable nb est en général toujours égale à 1 (mais elle variera plus tard dans mon programme )

Seul problème c'est que le pourcentage d'une case c'est 0,44444444444444 infini ...
Donc mon champ Label est TRES Long avec plein de 4 et ça fait moche ...

Donc j'ai voulu essayé un Round ou un Floor mais ça devient égale à 0 ... Et Ceil le pourcentage devient faux ...

Donc comment faire ? Sachant que 225 peut varier donc je ne peux pas mettre directement + 0.4

Merci d'avance !

[Hauwke]

Bonjour,

Code :

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

Champ.Caption := lefstr(FloatToStr (StrToFloat(Champ.Caption) + (nb * 100) / 225),3);

En limitant l'affichage à 3 caractéres, celà ne régle pas ton probléme?
Cordialement,
Hauwke

[Rayek]

Code :

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

1
2
 
Champ.Caption := FormatFloat('0.00',(StrToFloat(Champ.Caption) + (nb * 100) / 225));

FormatFloat ira tres bien pour ce que tu veux afficher

[K20]

Ok, merci bequcoup, je teste ca ce soir

[K20]

C'est bon, j'ai pris cette méthode :

Code :

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

Champ.Caption := FormatFloat('0.00',(StrToFloat(Champ.Caption) + (nb * 100) / 225));

ça fonctionne très bien !

Merci !