Vérifié qu?un tedit soit rempli

Soyez le premier à donner votre avis sur cette source.

Vue 5 500 fois - Téléchargée 471 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
Modérateur
Dernière intervention
18 novembre 2010
13
oui c vrai, j'ai 8/9 caracteres de plus :D
autant pour moi
cs_Delphiprog
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
26
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
Modérateur
Dernière intervention
18 novembre 2010
13
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.