Vérifié qu?un tedit soit rempli

Télécharger le projet
Commenter

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;
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_sellig)