Utilisez les tags des feuilles

Soyez le premier à donner votre avis sur cette source.

Vue 4 879 fois - Téléchargée 221 fois

Description

Utilisez les tags d'une feuille (Valeur entière) dans la programmation
dans un but de limitation du code

Source / Exemple :


L’utilisation de tags dans les feuilles est rarement employé et pourtant ceux-ci
sont extrêmement importants lors de la programmation.
 Le tag du bouton radio Fichiers est  mis à 1. Ceux des autres boutons Radio sont respectivement à 2 et 3.

On crée un événement Onclick pour ces 3 boutons radio intitulé  ( Le même pour les 3)  -  Dir.DefautClick(Sender:TObject);

 La feuille où se trouve ses boutons s’appelle Form_Dir :
 
procedure TForm_Dir.DefautClick(Sender:TObject);
begin
  Flag:=TRadioButton(Sender).Tag;Affiche.SimpleText:='';
end;

Ici on affecte à une  variable globale Flag la valeur du tag de l’objet qui l’appelle.
(TRadioButton(Sender).Tag

On utilise la valeur du Flag trouvé dans une fonction

Function Nouveau(Anc:String):String;
Begin
   Case Flag of
   	1:Nouveau:=UpperCase(Copy(Anc,1,1))+LowerCase(Copy(Anc,2,length(Anc)-1));
    	2:Nouveau:=UpperCase(Anc);3:Nouveau:=LowerCase(Anc);
    Else Nouveau:=UpperCase(Copy(Anc,1,1))+LowerCase(Copy(Anc,2,length(Anc)-1));
   End;
End;

{ Selon la valeur du Flag j’affecte à Nouveau la valeur Chaîne :

	1 : Anc est écrit avec la 1ère lettre en Majuscules, le reste en Minuscules
	2 : Anc est écrit tout an Majuscules
	3 : Anc est écrit tout en Minuscules }

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
54
Date d'inscription
jeudi 13 novembre 2003
Statut
Membre
Dernière intervention
25 avril 2012

Le Tag peut être utile pour distinguer des composants entre eux sans utiliser leur nom, ce qui permet par exemple d'utiliser une structure Case Of
Salut, pour ton utilisation, il existe aussi le TRadioGroup qui propose exactement la même chose que toi.

Sinon, le reste du code n'est pas spécialement interessant.
Tu aurais du dire qu'il faut utiliser le Tag des composants pour éviter de créer un tableau d'entiers ou de pointeurs dont l'index aurait rapport à ces-dits composants.

@ ++ Flo

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.