Sign in Join
Wiki copytemporary

IDE Window: Extract Procedure/fr: what changed

Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.

Title: IDE Window: Extract Procedure/fr

OldNewLine
1+# Capture d'écran
2+
3+**Edition-\>Extraire Procédure** ![](/wiki-images/5/55/ExtraireProc%C3%A9dure.png)
4+
5+# Description
6+
7+Résumé: "Extraire procédure" prend quelques phrases sélectionnées en pascal et crée une nouvelle procédure/méthode à partir de ce code source. Cet outil est utile pour diviser de grosses procédures ou pour créer facilement de nouvelles procédures à partir d'un certain code.
8+
9+Exemple de base :\
10+
11+``` pascal
12+
13+ procedure DoSomething;
14+ begin
15+ CallSomething;
16+ end;
17+```
18+
19+Choisir la ligne "CallSomething;" et lancer la procédure d'extraction. Une boite de dialogue apparaît et vous pouvez sélectionner le type et le nom de la procédure à créer. Par exemple : procedure, "NewProc". Resultat:
20+
21+``` pascal
22+ procedure NewProc;
23+ begin
24+ CallSomething;
25+ end;
26+
27+ procedure DoSomething;
28+ begin
29+ NewProc;
30+ end;
31+```
32+
33+Vous pouvez voir que la nouvelle procédure "NewProc" a été créé avec la sélection comme corps de la procédure et le vieux code a été remplacé par un call.
34+
35+Variables locales et paramètres :\
36+"Extraire Procédure" scanne à la recherche des variables utilisées et crée automatiquement une liste de paramètres et des variables locales. Exemple :
37+
38+``` pascal
39+ procedure TForm1.DoSomething(var Erni, Bert: integer);
40+ var
41+ i: Integer; // Comment
42+ begin
43+ Erni:=Erni+Bert;
44+ for i:=Erni to 5 do begin
45+ |
46+ end;
47+ end;
48+```
49+
50+Selectionnez la boucle for et créez une nouvelle procédure "NewProc". La variable locale i est seulement employé dans la sélection, ainsi elle sera déplacée vers la nouvelle procédure. Erni est également employé dans le restant du code, ainsi il deviendra un paramètre.
51+
52+Résultat :\
53+
54+``` pascal
55+ procedure NewProc(const Erni: integer);
56+ var
57+ i: Integer; // Comment
58+ begin
59+ for i:=Erni to 5 do begin
60+ |
61+ end;
62+ end;
63+
64+ procedure TForm1.DoSomething(var Erni, Bert: integer);
65+ begin
66+ Erni:=Erni+Bert;
67+ NewProc(Erni);
68+ end;
69+```
70+
71+Vous pouvez voir que "i" a été déplacé vers la nouvelle procédure (Note: y compris son commentaire ) et Erni.
72+
73+Limitations:\
74+Le Pascal est un langage très puissant , ainsi ne vous attendez pas à ce que cela fonctionne avec chaque code. Les limites actuelles/ToDos:
75+
76+- vérifie si la sélection correspond aux limites de la phrase
77+- les instructions "with"
78+
79+---
80+*From the Free Pascal wiki, page "IDE Window: Extract Procedure/fr", as it stood on 2020-02-17 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).*

Back to history