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 }
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.