Vérifié qu?un tedit soit rempli

Soyez le premier à donner votre avis sur cette source.

Vue 5 617 fois - Téléchargée 499 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
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

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.