Maniaxman
Messages postés155Date d'inscriptionlundi 10 janvier 2005StatutMembreDernière intervention17 juillet 2008
-
24 mai 2005 à 20:46
Maniaxman
Messages postés155Date d'inscriptionlundi 10 janvier 2005StatutMembreDernière intervention17 juillet 2008
-
27 mai 2005 à 21:28
Salut, j'ai fait un petit programme, qui contient 4 edits, et
j'aimerais que quand on clique sur un bouton (button1), le
programme vérifie qu'il y ai bien 4 caractères dans chaque edit, si ce n'est pas le cas, il renvoie un message d'erreur.
cs_sim51
Messages postés240Date d'inscriptiondimanche 31 octobre 2004StatutMembreDernière intervention31 décembre 20062 27 mai 2005 à 20:21
Re salut,
if not 5:=length(edit1.text) : déjà je vois une faute c'est le :=, là c'est pas une affectation mais un test donc c'est egal tout court. De plus là tu regarde si ton edit ne fait pas 5 caractères.
if 4<>length(edit1.text) then
showmessage(' votre mot ne fais pas 4 caractère");
....
Là je test si le label ne contient pas 4 caractère
N'oubliez pas de cliquer sur réponse acceptée si la réponse vous convient !!!
Maniaxman
Messages postés155Date d'inscriptionlundi 10 janvier 2005StatutMembreDernière intervention17 juillet 2008 27 mai 2005 à 17:52
j'ai mis :
procedure TForm1.Button1Click(Sender: TObject);
begin
if not 5:=length(edit1.text)
then
Showmessage('votre nombre est trop court')
else
begin
mon code
end
end;