VÉRIFIÉ QU?UN TEDIT SOIT REMPLI

Signaler
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
-
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/25060-verifie-qu-un-tedit-soit-rempli

Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
14
oui c vrai, j'ai 8/9 caracteres de plus :D
autant pour moi
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
31
Sellig : On va me dire que le raisonnement est absurde mais si on se trompe de référence dans l'argument Frm ou si la fiche passée ne contient aucun composant TEdit, la fonction renvoie toujours vrai !
Mais peut-être est-ce volontaire ?

JulioDelphi : pourquoi vérifier la longueur du texte saisi ?
Button1.Enabled := TEdit(Sender).Text <> '';
C'est plus court et le résultat est le même, non ?
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
14
salut,

sympa la routine !
voici ma méthode qui fonctionne pour 'un edit pour un bouton' : (à creer une fois puis à placer dans chak evènement OnKeyPress des TEdit)

procedure TForm1.Verif(Sender: TObject);
begin
Button1.Enabled := Length(TEdit(Sender).Text)>0;
end;

a la difference de la tienne, je ne gere ke un edit pour enabled ou non un bouton.

bye