Vérifié qu?un tedit soit rempli

Soyez le premier à donner votre avis sur cette source.

Vue 5 785 fois - Téléchargée 524 fois

Description

Cette Fonction permet de mettre la propriété d?un autre contrôle
à TRUE ou FALSE. (Utile pour les boutons dans un Formulaire)

Source / Exemple :


(* Declarations *)
   function ValidEdit(Frm: TForm): Boolean;

(* Verifie si les champs des TEdit sont remplis !*)
function ValidEdit(Frm: TForm): Boolean;
var i: Shortint;
begin
   for i:=0 to Frm.ComponentCount-1 do
   begin
      if Frm.components[i] is TEdit then
      begin
         if Tedit(Frm.components[i]).Text = '' then
         begin
            result := false;
            exit;
         end;
      end;
   end;
   Result:=True;
end;

(* Utilisation *)
procedure TForm1.EditChange(Sender: TObject);
begin
   (* Button1 valide si ValideEdit renvoi TRUE*)
   Button1.Enabled:=ValidEdit(FrmClient);
end;

Codes Sources

A voir également

Ajouter un commentaire Commentaires
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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.