Comment créer ses propres modèles de code dans Delphi ?

[url=#modeledecode]Comment créer ses propres modèles de code
dans Delphi ?[/url]


Il existe dans l'EDI de Delphi une fonctionnalité bien intéressante, c'est la
possibilité d'avoir des modèles de code. Avec cette fonctionnalité la saisie de
code peut s'avérer beaucoup plus rapide.
Par exemple à chaque fois que je
veux insérer une boucle dans mon code, je tape :

Code:

//On tape forb puis on fait CTRL + J dessus
forb + ctrl + J

et l'EDI remplace ce que je viens de taper par :

Code:

for  :=  to  do
begin

end;

Il existe ainsi toute une liste de raccourcis prédéfinis dans l'EDI.


Mais ce n'est pas tout, nous pouvons également créer nos propres
raccourcis. Pour cela voici comment procéder:
Pour aller dans le paramétrage
des modèles de code, il faut choisir dans le menu 'outils', l'onglet 'Options de
l'éditeur'. Dans la fenêtre qui apparaît, choisir l'onglet 'Options du source'.
Dans l'onglet qui apparaît, cliquez sur le bouton qui s'intitule : 'Modifier
modèles de code...'
Sur la fenêtre intitulée 'Modèles de codes' qui vient de
s'ouvrir, vous voyez sur la partie haute, la liste des modèles existants dans
l'EDI. Cette liste a deux colonnes, la première contenant le raccourci
correspondant et la deuxième une brève description du modèle. En cherchant dans
la liste, nous retrouvons notre modèle 'forb'. Cliquons dessus. Nous voyons
apparaître dans la partie basse de la fenêtre le source qui est généré par l'EDI
lorsque nous invoquons le modèle.
Nous pouvons voir également des boutons
permettant la gestion de ces modèles (Ajouter..., Modifier..., Supprimer...).
Nous cliquons donc sur 'Ajouter...'.
Une boîte de dialogue nous demande alors
de saisir le raccourci et la brève description de celui-ci. Pour l'exemple, nous
allons créer un raccourci qui permet d'instancier un TSQLQuery sans variable
d'instance, code qui me sert très souvent dans mes applications. Nommons-le
tsql. Dans la description, inscrivons SQLQuery sans variable d'instance et
validons.
Nous sommes revenu à l'écran de gestion des modèles avec notre
nouveau modèle en bas de liste et la zone de code vierge. C'est ici que nous
allons saisir notre modèle.
Saisissons le code suivant :

Code:

with TSQLQuery.Create(nil) do
begin
  try
    SQLConnection := |
    SQL.Clear;

  finally
    Free;
  end;
end;

Remarquez le caractère Pipeline (trait vertical) sur la 4ème ligne : il indique
à quel endroit l'IDE doit placer le curseur après avoir écrit le modèle.
Il
ne reste plus qu'à cliquer sur 'Ok', notre modèle est prêt. Il suffit maintenant
de taper :

Code:

tsql + ctrl + j

pour que Delphi accole notre modèle à cet endroit.