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é
Partager