Discussion :

[sasaas]

Bonsoir
j'ai un tedit et je veux controle le saisie pour qu'il doit contenir un réel séparé par des virgules.
J'ai fait le suivant, mais il ya une erreur :

var i:integer;
begin
for i:=1 to length(edit5.Text)do
begin
if (strtoint(edit5.Text[i])<>[0..9] or edit5.Text[i]<>',') then showmessage('le nombre doit être un nombre réel séparé par des virgules');
end;

c'est quoi l'erreur je parvient pas à la corrigé

[declencher]

Si tu veux simplement tester si la valeur saisie peut être convertie en réel, alors regarde du côté de la fonction StrToFloat

[Tardiff Jean-François]

Bonjour

vous avez.

Code :

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

1
2
3
4
 
for i:=1 to length(edit5.Text)do
begin
if (strtoint(edit5.Text[i])<>[0..9] or edit5.Text[i]<>',') then showmessage('le nombre doit être un nombre réel séparé par des virgules');

si Edit5.Text = 'ABCD'

si I = 1
Edit5.text[I] = 'A'
donc StrToInt(Edit5.Text[I]) = StrToInt['A'] = erreur

Ceci dit, ce nes pas une méthode très pratique.

Essayer plutôt

Code :

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

1
2
3
4
5
6
7
 
 
Value := IntToStrFloat(Edit5.text, 0);
if Value = 0 then begin
  Value :=  IntToStrFloat(Edit5.text, 1);
  if Value = 1 then ---> erreure
end;

pour savoir si vous avez un numérique.
apres vous pouvez transformer l'éventuelle decimalseparator (. ou , suivant le langage de l'ordinateur) par une virgule (en utilisant ansiReplaceStr)

Vous pouvez aussi tester la valeur dans Edit5 lors que vous entrer une valeur (événement onchange)

[sasaas]

Merci pour vos réponse
ce que je veux savoir c'est que quand je fait "edit5.Text[long] in ['0'..'9']" c'est bon pas de pbm, mais quand je veux dire n'appartient pas j'essai de faire
"edit5.Text[long] not in ['0'..'9']" il ya un pbm.
Merci d'avance

[dragonno]

est-ce que ça marcherait :
If not (Edit5.Text[long] in ['0'..'9'] )

[sasaas]

Oui merci ça marche, merci.

[dragonno]

Content de t'avoir aidé^^
Mais clique sur Résolu