Séparateur de millier d'un edit commandé par un updown
Résolu
JacKrauser
Messages postés
31
Date d'inscription
lundi 14 mai 2012
Statut
Membre
Dernière intervention
21 août 2012
-
10 juil. 2012 à 16:03
cs_Jean_Jean Messages postés 615 Date d'inscription dimanche 13 août 2006 Statut Membre Dernière intervention 13 décembre 2018 - 10 juil. 2012 à 18:53
cs_Jean_Jean Messages postés 615 Date d'inscription dimanche 13 août 2006 Statut Membre Dernière intervention 13 décembre 2018 - 10 juil. 2012 à 18:53
A voir également:
- Pascale nix
- Commande make linux - Conseils pratiques -C / C++ / C++.NET
- Sql découper une chaîne séparateur - Forum SQL
- 'Mvn' n'est pas reconnu en tant que commande interne ou externe, un programme exécutable ou un fichier de commandes. - Forum Java
- Mvn n'est pas reconnu en tant que commande interne ✓ - Forum Java
- Découper une chaine de caractères en fonction d'un séparateur - Forum C / C++ / C++.NET
4 réponses
beckerich
Messages postés
302
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
17 septembre 2013
2
10 juil. 2012 à 17:37
10 juil. 2012 à 17:37
bonjour,
le updown a une propriété thousand qu'il faut mettre à false, et le tour est joué !
Luc.
le updown a une propriété thousand qu'il faut mettre à false, et le tour est joué !
Luc.
cs_Jean_Jean
Messages postés
615
Date d'inscription
dimanche 13 août 2006
Statut
Membre
Dernière intervention
13 décembre 2018
3
10 juil. 2012 à 16:51
10 juil. 2012 à 16:51
Slt,
Tu peux mettre autre chose qu'un espace
ou
si ValStr 125000> 125.000
Jean_Jean
Tu peux mettre autre chose qu'un espace
Edit.Text := FormatFloat('#-##0', Valeur)
ou
Function AddSeparator(Str:string;S:char): string;
var I: integer;
begin
Result := Str;
I := Length(Str)-2;
while I > 1 do
begin
Insert(Chr, Result, I);
I := I - 3;
end
end;
Statictext1.Caption := AddSeparator('ValStr','.');
si ValStr 125000> 125.000
Jean_Jean
JacKrauser
Messages postés
31
Date d'inscription
lundi 14 mai 2012
Statut
Membre
Dernière intervention
21 août 2012
10 juil. 2012 à 17:59
10 juil. 2012 à 17:59
@ Luc : Nickel !
@Jean_Jean : Merci quand même, ça peut toujours servir
@Jean_Jean : Merci quand même, ça peut toujours servir
cs_Jean_Jean
Messages postés
615
Date d'inscription
dimanche 13 août 2006
Statut
Membre
Dernière intervention
13 décembre 2018
3
10 juil. 2012 à 18:53
10 juil. 2012 à 18:53
Pas de quoi, en fait j'étais sur D7 perso. j'ai XE depuis peu. je ne connais pas encore tous les compo de XE!
pas mal de nouveautés intéressantes effectivement...
Jean_Jean
pas mal de nouveautés intéressantes effectivement...
Jean_Jean