VÉRIFIÉ QU?UN TEDIT SOIT REMPLI

JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 - 1 août 2004 à 16:32
JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 - 4 août 2004 à 23:04
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

JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 14
4 août 2004 à 23:04
oui c vrai, j'ai 8/9 caracteres de plus :D
autant pour moi
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
4 août 2004 à 22:06
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 ?
JulioDelphi Messages postés 2226 Date d'inscription dimanche 5 octobre 2003 Statut Membre Dernière intervention 18 novembre 2010 14
1 août 2004 à 16:32
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