Sign in Join
Wiki copytemporary

Code Conversion Guide/fr: what changed

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

OldNewLine
11Cette page traite de la façon de convertir le code existant en Delphi ou Kylix pour fonctionner avec le compilateur [[Free Pascal]] et l'IDE Lazarus. Bien que Lazarus et le compilateur Free Pascal ont des aspects en commun avec Delphi et Kylix, ce ne sont pas des clones. Il y a un certain nombre de différences de convention et d'appel de bibliothèque ... et dans quelques secteurs , FPC est amélioré et peut être plus exigeant sur une syntaxe correcte . Veuillez voir le guide [[Lazarus For Delphi Users]] pour une description de quelques unes des différences fonctionnelles .
22
33Le but de ce guide est de documenter certaines des différences spécifiques qui sont fréquemment rencontrées pendant le processus de conversion de code en traduisant le code existant de Delphi à Lazarus.
44
55Ce document a été placé dans la base de connaissance du wiki ainsi il pourrait être facilement complété par n'importe qui qui avait rencontré un problème unique et voudrait le signaler pour que d'autres s'en rendent compte.
66
77## Choix d'un composant ou d'une bibliothèque pour la conversion
88
99### Où trouver le code pour convertir
1010
1111Il y a beaucoup de code disponible sur le net qui peut être converti pour être utilisé par FPC et Lazarus . Voici une [[Page Of Code Sites/fr|Page de sites avec du code]] qui est juste un début. S'il vous plaît, complétez-le si vous connaissez d'autres bonnes adresses. TurboPower Software a récemment réalisé son offre commerciale entièrement sous MPL (Licence publique de Mozilla). Une liste de paquets disponibles peut être trouvée [ici](http://sourceforge.net/users/tpsfadmin/).
1212
1313Pour éviter un double effort, les paquets qui ont été déjà été convertis sont listés sur la page [[Components and Code examples/fr|composants et Exemples de code]]. Si vous avez converti un paquet ou travaillez sur un, veuillez ajouter une note sur la page [[Current conversion projects/fr|Projets en cours de conversion]].
1414
1515### Autorisation
1616
1717Il existe des licences depuis le Freeware (domaine public) jusqu’à des versions plus restrictives interdisant toute modification, redistribution ou usage commercial. Avant d’entreprendre toute conversion, il est nécessaire d’examiner les droits attachés au code. Le type de la licence de protection est essentiel lorsque l’on colle sur une Form un composant imposant des droits incompatibles avec l’ensemble de l’application concernée.
1818
1919Lors de la traduction de composants, respectez les souhaits de l’auteur et conservez les copyrights et les entêtes des licences avec les adresses E-mail et les url. De même, il souhaitable d'informer l'auteur que ses composants sont en cours de conversion ... Surtout si le composant est sous une License restrictive. Dans le cas de composants oubliés et plus exploités, les auteurs révisent souvent les droits associés.
2020
2121Généralement le domaine public (Freeware) et le LGPL/MPL sont les plus souples pour la diffusion de composants. Pour obtenir plus d’information concernant la\[Définition Open Source <http://www.opensource.org/docs/definition.php>\] est un bon commencement. Vous trouverez aussi d’autres types de licences et leur impact sur le code y étant attaché.
2222
2323### Dépendances
2424
2525Une autre étape avant de commencer à travailler sur une conversion est vérifier que le code n'a pas des dépendances profondes avec d'autres paquets qui pourraient ne pas être disponibles ou qui représente un défi considérable de conversion. Quelques offres de freeware sont liées à ou bien prolongent les paquets propriétaires qui ne sont fréquemment plus disponibles ou viennent avec des licences inadéquates.
2626
2727### Problèmes liés au Compilateur
2828
2929Voir :
3030
3131- [Problèmes connus](http://www.freepascal.org/probs.var)
3232- [Traqueur de bogues](http://bugs.freepascal.org/my_view_page.php)
3333
3434### Questions sur l'OS et de plate-forme
3535
3636Lazarus et le compilateur Free Pascal sont des outils de developpement multi plate-forme et multi-architecture. En revanche , la plupart du code existant Delphi a été spécifiquement conçu pour fonctionner sur un processeur Intel sous Win32 . Si votre composant candidat a beaucoup de code spécifique Win32 , il pourrait être sage d'essayer et de trouver une plateforme alternative . Mais ne laissez pas ceci vous stopper... c'est véritablement étonnant ce que la LCL supporte!
3737
3838## Faire la conversion
3939
4040### Paramétrer l'environnement de Lazarus pour un projet de conversion
4141
4242#### Créer un projet test
4343
4444- Placer le code à convertir dans un sous-répertoire (par exemple: convertdir)
4545- Lancer Lazarus
4646- Fichier-\>Tout Enregistrer vers le sous-répertoire convertdir. Les noms significatifs pour le Projet et l'unité par défaut sont optionnels.
4747- Ouvrir l'unité « principale » à convertir dans convertdir
4848- L'ajouter au projet : Projet-\>Ajouter le fichier de l'éditeur au Projet
4949- Lancer Outils-\>Vérification rapide de la syntaxe ou lancer Executer-\>Construire Tout pour commencer .
5050
5151#### Choses initiales à regarder
5252
5353- Les noms de fichier sont sensibles à la casse avec les versions de compileurs 1.0.x. Si vous travaillez avec cette version, faire que tout vos noms de fichiers soient en minuscules. Vous obtiendrez les erreurs "fichiers non trouvés" si vous ne le faites pas.
5454
5555#### Sources Delphi VCL, Kylix CLX dans Lazarus
5656
5757En convertissant des sources Delphi/Kylix, il est souvent utile de trouver des déclarations pour voir ce qu'une fonction spécifique fait. L'EDI Lazarus peut analyser les sources Delphi/Kylix. Pour faire ceci il a besoin de quelques chemins de recherche et paramètres du compilateur. Vous pouvez facilement paramétrer ceci dans Configuration-\>Editeur des directives des outils de code...-\>Inserer un modèle
5858
5959### Problèmes de conversion et solutions
6060
6161#### Fichier Delphi / Kylix équivalents dans Lazarus
6262
63-<table>
64-<thead>
65-<tr>
66-<th><p>Delphi / Kylix</p></th>
67-<th><p>Description</p></th>
68-<th><p>Lazarus</p></th>
69-<th><p>Description</p></th>
70-</tr>
71-</thead>
72-<tbody>
73-<tr>
74-<td data-valign="top"><p>.pas</p>
75-<p>.dfm/.xfm,</p>
76-<p>.dcu/.dpu,</p>
77-<p>.dpr(Code source du projet),</p>
78-<p>.res,</p>
79-<p>.dof/.kof</p>
80-<p>---</p>
81-<p>---</p>
82-<p>---</p></td>
83-<td data-valign="top"><p>Fichier source Delphi, Fiche Delphi,</p>
84-<p>Unité compilée Delphi,</p>
85-<p>Projet Delphi,</p>
86-<p>Fichier de ressource Windows,</p>
87-<p>Fichier d'options Delphi</p></td>
88-<td data-valign="top"><p>.pas, .pp .lfm,</p>
89-<p>.o,</p>
90-<p>.lpr</p>
91-<p>---</p>
92-<p>---</p>
93-<p>.lrs,</p>
94-<p>.lpi(Fichier de projet),</p>
95-<p>.ppu</p></td>
96-<td data-valign="top"><p>Fichier unité Pascal,</p>
97-<p>Fichier de donnée de fiche,</p>
98-<p>Fichier d'unité compilée,</p>
99-<p>Fichier de projet,</p>
100-<p>Fichier de ressource,</p>
101-<p>Fichier d'options du projet,</p>
102-<p>Fichier de ressource de Lazarus,</p>
103-<p>Fichier d'information de projet Lazarus,</p>
104-<p>Fichier de description d'unité de FPC</p></td>
105-</tr>
106-</tbody>
107-</table>
63+**Delphi / Kylix**
10864
65+**Description**
66+
67+**Lazarus**
68+
69+**Description**
70+
71+.pas
72+
73+.dfm/.xfm,
74+
75+.dcu/.dpu,
76+
77+.dpr(Code source du projet),
78+
79+.res,
80+
81+.dof/.kof
82+
83+---
84+
85+---
86+
87+---
88+
89+Fichier source Delphi, Fiche Delphi,
90+
91+Unité compilée Delphi,
92+
93+Projet Delphi,
94+
95+Fichier de ressource Windows,
96+
97+Fichier d'options Delphi
98+
99+.pas, .pp .lfm,
100+
101+.o,
102+
103+.lpr
104+
105+---
106+
107+---
108+
109+.lrs,
110+
111+.lpi(Fichier de projet),
112+
113+.ppu
114+
115+Fichier unité Pascal,
116+
117+Fichier de donnée de fiche,
118+
119+Fichier d'unité compilée,
120+
121+Fichier de projet,
122+
123+Fichier de ressource,
124+
125+Fichier d'options du projet,
126+
127+Fichier de ressource de Lazarus,
128+
129+Fichier d'information de projet Lazarus,
130+
131+Fichier de description d'unité de FPC
132+
109133Ainsi, un fichier .dcu de Delphi corresponds grossièrement aux fichiers FPC .o et .ppu dans un seul fichier. Le .ppu est principalement la partie entête (interface), le .o principalement la partie implementation. Les principales exceptions sont les fonctions en-ligne qui dans la forme à insérer sont dans le .ppu.
110134
111135#### Convertir les projets/fiches/unités Delphi vers Lazarus
112136
113137Renommez ou copiez le fichier .dpr vers un fichier .lpr. Mettre en commentaire ou enlevez la directive {\$R *.res} et ajouter une directive {\$mode delphi}{\$H+} ou {\$mode objfpc}{\$H+} au fichier .lpr. L'IDE Lazarus peut vous assister dans cette conversion à travers l'item du menu outils "Convertir un projet Delphi en projet Lazarus...". Il demande un fichier .dpr (projet Delphi) et le convertit en .lpr; en outre, il crée le fichier .lpi et convertit toutes les unités .
114138
115139Beaucoup de fiches existantes de Delphi peuvent être converties pour fonctionner avec Lazarus en employant le convertisseur de fiche .dfm vers .lfm intégré de l'IDE. Il peut être trouvé sous le menu outils à l'item "Convertir un fichier DFM en LFM...". Faire appel à la boite de dialogue fichier, sélectionnez le(s) fichier(s) dfm et le convertisseur fera le reste .
116140
117141Si vous devez convertir l'unité entière (avec ou sans une fiche), Lazarus inclut également un item intégré "Convertir une unité Delphi en unité Lazarus..." qui fera ce qui suit pour vous -
118142
1191431. fixe le cas des noms de fichier include et des sections uses.
1201442. converti les fichiers .dfm vers les fichiers .lfm (actuellement sans contrôler le contenu, juste le format)
1211453. crée un fichier vide .lrs (le contenu sera créé plus tard )
1221464. Ajoute la directive {\$mode delphi}
1231475. Remplace l'unité windows par LCLIntf
1241486. Ajoute l'unité LResources si nécessaire (c.-à-d. , si l'unité .lrs doit être utilisée; uses LResources peut être dans la partie implémentation )
1251497. Enlève l'unité de variantes
1261508. Enlève la directive {\$R *.dfm}
1271519. Ajoute la section d'initialisation et la directive {\$i unit.lrs}
128152
129153Ceci permet la conversion rapide et facile de la plupart des unités du format Delphi au format Lazarus. Il ne fait aucun contrôle de validité, ou changements automatiques de syntaxe, aussi tout les changements de syntaxe que vous devez faire, les changements additionnels d'unité/de nom d'unité, ou les changements de fichier dfm/pas pour les contrôles/les différences de composants, doivent toujours être fait manuellement, bien que dans le temps quelques assistants(wizards) facilitant une partie de ceci, particulièrement la réparation des fiches converties(lfm), puissent devenir disponible .
130154
131155#### Choix du bon mode du compilateur
132156
133157Le compilateur [[Free Pascal/fr|Free Pascal]] supporte 5 modes Pascal différents. Par exemple TP pour turbo pascal, vous laisse compiler des unités en turbo pascal. Il y a également un mode de compatibilité DELPHI qui peut être choisi pour rendre le code existant plus facile à convertir. Lazarus préfère le mode OBJFPC, qui est presque égal au mode DELPHI, mais est moins ambigu que la syntaxe de Delphi. Voici les points importants :
134158
135159Le mode peut être choisi en ligne de commande ou au début de la source . Employer la ligne de commande a l'avantage , que vous n'avez pas besoin de changer la source, mais l'inconvénient , que les autres doivent être renseignés .
136160
137161La plupart des unités Delphi peuvent être compilées par le compilateur [[Free Pascal/fr|Free Pascal]] en ajoutant
138162
139163`{$IFDEF FPC}`\
140164`  {$MODE DELPHI}`\
141165`{$ENDIF}`
142166
143167juste après le nom de l'unité .
144168
145169Pour plus de détails à propos des modes de [[Free Pascal/fr|Free Pascal]] voir la [Documentation de Free Pascal](http://www.freepascal.org/docs-html/prog/progap4.html#progse62.html)
146170
147171#### Considérations sur les logiciels multiplate-formes
148172
149173- L'assembleur inline est toujours un problème parce qu'il liera le code à l'architecture Intel. Quelques développeurs font des prototypes d'algorithme en Pascal et utilisent la directive IFDEF avec leur assembleur optimisé. Heureusement TurboPower a fait ceci dans de nombreux endroits avec leur code . Si c'est le cas avec le paquet que vous convertissez , remettez la directive sur Pascal.
150174- Ne pas mettre en référence des endroits de mémoire spécifique comme le secteur de données du BIOS. Découvrez ce dont le code a besoin et essayez de trouver une alternative multiplate-forme .
151175- Ne pas faire les tours spécifiques du processeur (comme employer le compteur temporel d'Intel (time stamp counter)) sans insérer votre code dans une directive IFDEF pour la plate-forme que le code nécessite ... et fournissant une alternative pour des environnements qui n'ont pas les possibilités matérielles .
152176- Si vous avez besoin de quelque code spécifique au système d'exploitation(OS) , alors vous pouvez employer la directive IFDEF. Voir ci-dessous pour une liste des macros .
153177
154178#### Les variables utiles pour le compilateur
155179
156180Pour écrire du code, qui se comporte sur divers systèmes différemment, vous pouvez employer les directives {\$IFDEF Name}.
157181
158182- {\$IfDef LCL}
159183
160184Cette variable est définie en utilisant le paquet LCL. Utile pour écrire du code qui fonctionne avec la bibliothèque LCL et Delphi.
161185
162186- {\$IfDef LCLGtk}, {\$IfDef LCLWin32}, {\$IfDef LCLQt}, ...
163187
164188Cette variable est définie en utilisant le paquet LCL et le jeux de composants spécifique est actuellement employé. Utile pour écrire du code qui fonctionne avec la bibliothèque LCL sur une plate-forme spécifique.
165189
166190- {\$IfDef FPC}
167191
168192Cette variable est définie, en utilisant le compilateur FPC. Utile pour écrire du code, qui fonctionne avec FPC et Delphi.
169193
170194- {\$IfDef Unix}, {\$IfDef Win32}, ...
171195
172196Défini par FPC pour le système d'exploitation cible courant. Delphi définit "Linux", "Win32" et "MSWindows". [[Free Pascal/fr|Free Pascal]] s'exécute sur beaucoup plus de plate-formes et ainsi on lui recommande d'employer l'item le plus courant. Par exemple "Unix" est défini pour Linux, FreeBSD, NetBSD et OpenBSD, là où Lazarus s'exécute déjà . Utilisez
173197
174198`{$IfDef Linux}`\
175199`  {$Define Unix}`\
176200`{$EndIf}`
177201
178202pour contourner ceci pour Kylix .
179203
180204Pour plus de détails voir la [Documentation de Free Pascal](http://www.freepascal.org/docs-html/prog/prog.html#QQ2-23-21). **Texte gras**
181205
182206#### 32bit / 64 bit support
183207
184208Les pointeurs en 64bit demande 8 octets au lieu de 4 en 32bit. Le type 'Integer' demeure en 32bit pour compatibilité. Cela signifie que vous ne pouvez plus forcer les pointeurs en Integer et revenir en arrière. FPC définit deux nouveaux types : PtrInt and PtrUInt. PtrInt est une entier 32bit signé dans les plates-formes 32bit et un entier signé 64bit dans les plate-formes 64bit. La même chose avec PtrUInt mais en prenant des entiers non signés. Utilisez ce code qui devrait tourner pour Delphi et FPC :
185209
186210``` pascal
187211{$IFNDEF FPC}
188212type
189213 PtrInt = integer;
190214 PtrUInt = cardinal;
191215{$ENDIF}
192216```
193217
194218Remplacer tous les **integer(SomePointerOrObject)** par **PtrInt(SomePointerOrObject)**.
195219
196220Pour plus d'information, voir [[Multiplatform Programming Guide/fr|Guide de programmation Multi plate-forme]].
197221
198222#### Trouver un identificateur manquant
199223
200224Il y a des différences dans la façon dont la bibliothèque LCL est organisée en comparaison avec la bibliothèque VCL de Delphi . Si vous obtenez une erreur "not found" du compilateur au sujet d'une classe ou d'un identificateur important, les chances sont bonnes qu'il/elle soit dans une unité différente. Une correspondance complète peut être trouvée en utilisant la commande grep avec le sous répertoire lazarus/docs/xml ou lcl.
201225
202226Par exemple la classe tbutton utilisée généralement donne typiquement une erreur dans le code Delphi parce qu'il est placé dans une unité appelée buttons.pp. La commande suivante trouve l'unité correcte très rapidement (dans le répertoire source de Lazarus ):
203227
204228` grep -in ' tbutton =' lcl/*`
205229
206230#### Différences principales d'unité entre Lazarus et Delphi
207231
208232**Please add to this topic!**
209233
210234- Windows-\>Interfaces, LCLIntf, LCLType, LCLProc, VCLGlobals, ...)
211235
212236Comme la bibliothèque LCL n'est pas spécifiquement dédiée à Windows, le code qui est dans l'unité Windows de Delphi pour accéder directement à l'API Win32, est placé dans des interfaces distinctes, lequel se situe dans l'unité LCLIntf. Gardez à l'esprit que Lazarus n'émule pas win32. Beaucoup de fonctions sont absentes et certaines ne fonctionnent pas comme leur homologues win32. Ces fonctions existent seulement pour la compatibilité avec Delphi et devrait seulement être employées pour un portage rapide. La bibliothèque LCL modifie plusieurs des types, ainsi souvent LCLType, et parfois VCLGlobals sont exigés. LCLProc contient également quelques fonctions ce qui peut être utile pour la manipulation de plus bas niveau comme "FreeThenNil", comme c'est le cas dans Delphi 5 (et plus). Utilisez "DeleteAmpersands" pour enlever des esperluètes additionnelles d'une chaîne de caractères pour les contrôles (& contre && etc). L'unité d'interfaces doit être incluse dans le fichier .lpr pour initialiser les jeux de composants graphiques appropriés .
213237
214238- Messages-\>LMessages
215239
216240Les messages TControl des événements callback de Win32 au format WM_CALLBACK et leurs structures associées sont généralement situés dans DELPHI dans l’unité Messages. Dans la LCL ce type de messages et leurs structures se trouvent dans Lmessages, avec en général le changement de « WM » en « LM ». Par exemple WM_MOUSEENTER devient LM_MOUSEENTER et TWMMouse devient TLMMouse.
217241
218242- Graphics, Controls-\>GraphTypes, GraphMath, Graphics, Controls
219243
220244Afin de simplifier les référencements multiples et circulaires d’unités quelques nouveaux types ont été définis dans une unité appelée GraphType regroupant des éléments qui, dans Delphi, sont placés dans Graphics ou Controls (par exemple le BvNone des Panels). Vous aurez donc parfois à l’utiliser. De même, GraphMath est une autre unité, qui bien qu’incompatible avec Delphi inclut d’autres fonctionnalités utiles. Elle prend en compte la précision TFloatPoint, diverses routines de Béziers, les lignes, les arcs, la surcharge d’opérateur telle que Point1=Point2+Point3 et la comparaison de Trects : If (Rect1=Rect2) then …
221245
222246- Mask-\>MaskEdit
223247
224248Afin de la nommer plus intelligement l’unité des TMaskEdit est nommée \[MaskEdit\] au lieu du nébuleux Mask de beaucoup de versions de Delphi.
225249
226250- StdCtrls-\>StdCtrls,Buttons
227251
228252Dans beaucoup de versions de Delphi, Tbutton est situé dans StdCtrls, alors que TSpeedButton et TBitBtn sont dans Buttons. Plus simplement, la LCL place tous les types de boutons dans Buttons, ce qui peut occasionnellement interrompre la traduction du code. Il est donc préférable de l’inclure systématiquement.
229253
230254#### Différences des Propriétés et methodes entre Delphi et FPC/LCL
231255
232256- TBitmap inclu un Canvas dans la LCL
233257- [[Lazarus Faq|Lazarus_Faq#Why are TForm.ClientWidth§ClientHeight the same as TForm.Width.2FHeight]]
234258
235259#### Différence sémantique
236260
237261##### Ordre d'évaluation des paramètres
238262
239263Delphi garantit que tous les paramètres sont évalués de la gauche vers la droite (sauf si une convention d'appel est précisée et spéficie autre chose, pour s'interfacer avec des routines C p.ex). FPC ne présente pas cette garantie et peut evaluer les paramètres dans n’importe quel ordre afin de générer un code optimal.
240264
241265##### Procédures/Fonctions imbriquées en variables procédurales
242266
243267[voir l'article Wikipedia(en)](https://en.wikipedia.org/wiki/Call_stack)
244268
245269Delphi passe le pointeur de cadre de la procédure parent toujours sur la pile, et c'est à l'appelant de l'enlever à nouveau. Cela signifie qu'aussi longtemps que vous n'accédez pas aux variables de la procédure parent, vous pouvez passer l'adresse de la fonction imbriquée à une autre fonction qui peut alors l'appeler comme n'importe quelle variable procédurale.
246270
247271FPC de son côté, passe toujours le pointeur de cadre de la procédure parent comme un premier paramètre caché selon la convention d'appel employée, ce qui signifie que si vous appelez une procédure imbriquée comme une variable procédurale normale, tous les paramètres seront "décalés" d'une position.
248272
249273En bref, n'appelez pas de procédure imbriquée au moyen d'une variable procédurale.
250274
251275#### différence de syntaxe
252276
253277**SVP compléter cet article!**
254278
255279A cause de restrictions propres à FPC, des changements de synthaxe sont nécessaires. La directive {\$Mode Delphi} autorise, comme Delphi, moins de rigueur. Aussi adaptez votre règles synthaxiques avec {\$Mode ObjFPC} au plus vite, même si le code doit être partagé par Delphi et LCL. Certaines sont simplement de meilleurs pratiques et parfois parce que le mode Delphi n'est pas assez précis, ou dans quelques cas, un code acceptable pour Delphi ne fonctionne pas comme attendu avec FPC, même s'il pourrait compiler.
256280
257281À cette fin, même si tous ces éléments ne sont pas strictement requis, la liste suivante de changements devrait être considérée comme obligatoire :
258282
259283##### Pour affecter un gestionnaire à un évènement vous devez le préfixer avec "@"
260284
261285Par exemple, pour assigner une procédure à un évènement "OnClick" d'un bouton :
262286
263-<table>
264-<thead>
265-<tr>
266-<th><p>Delphi</p></th>
267-<th><p>FPC</p></th>
268-</tr>
269-</thead>
270-<tbody>
271-<tr>
272-<td><div class="sourceCode" id="cb1"><pre class="sourceCode pascal"><code class="sourceCode pascal"><span id="cb1-1"><a href="#cb1-1" aria-hidden="true" tabindex="-1"></a><span class="kw">begin</span></span>
273-<span id="cb1-2"><a href="#cb1-2" aria-hidden="true" tabindex="-1"></a> <span class="kw">if</span> <span class="kw">not</span> Assigned(MyButton.OnClick) <span class="kw">then</span> </span>
274-<span id="cb1-3"><a href="#cb1-3" aria-hidden="true" tabindex="-1"></a> MyButton.OnClick:= SomeFunction;</span>
275-<span id="cb1-4"><a href="#cb1-4" aria-hidden="true" tabindex="-1"></a> <span class="co">//@ not required</span></span>
276-<span id="cb1-5"><a href="#cb1-5" aria-hidden="true" tabindex="-1"></a> <span class="co">//more code...</span></span>
277-<span id="cb1-6"><a href="#cb1-6" aria-hidden="true" tabindex="-1"></a><span class="kw">end</span>;</span></code></pre></div></td>
278-<td><div class="sourceCode" id="cb2"><pre class="sourceCode pascal"><code class="sourceCode pascal"><span id="cb2-1"><a href="#cb2-1" aria-hidden="true" tabindex="-1"></a><span class="kw">begin</span></span>
279-<span id="cb2-2"><a href="#cb2-2" aria-hidden="true" tabindex="-1"></a> <span class="kw">if</span> <span class="kw">not</span> Assigned(MyButton.OnClick) <span class="kw">then</span></span>
280-<span id="cb2-3"><a href="#cb2-3" aria-hidden="true" tabindex="-1"></a> MyButton.OnClick:= @SomeFunction;</span>
281-<span id="cb2-4"><a href="#cb2-4" aria-hidden="true" tabindex="-1"></a> <span class="co">//@ IS required</span></span>
282-<span id="cb2-5"><a href="#cb2-5" aria-hidden="true" tabindex="-1"></a> <span class="co">//more code...</span></span>
283-<span id="cb2-6"><a href="#cb2-6" aria-hidden="true" tabindex="-1"></a><span class="kw">end</span>;</span></code></pre></div></td>
284-</tr>
285-</tbody>
286-</table>
287+**Delphi**
287288
289+**FPC**
290+
291+``` pascal
292+begin
293+ if not Assigned(MyButton.OnClick) then
294+ MyButton.OnClick:= SomeFunction;
295+ //@ not required
296+ //more code...
297+end;
298+```
299+
300+``` pascal
301+begin
302+ if not Assigned(MyButton.OnClick) then
303+ MyButton.OnClick:= @SomeFunction;
304+ //@ IS required
305+ //more code...
306+end;
307+```
308+
288309NB : cela n'est pas limité aux seuls événements, mais concerne tous les types procéduraux.
289310
290311##### En appelant une variable procédure utilisez cette syntaxe : theprocname()
291312
292313En Delphi, il n'y a aucune différence entre un résultat de fonction et une variable. Par contre, il y en a une en FPC, ainsi pour appeler une fonction, même si elle n'a pas de paramètre, vous devez ajouter des parenthèses. Par exemple :
293314
294-<table>
295-<thead>
296-<tr>
297-<th><p>Delphi</p></th>
298-<th><p>FPC</p></th>
299-</tr>
300-</thead>
301-<tbody>
302-<tr>
303-<td><div class="sourceCode" id="cb1"><pre class="sourceCode pascal"><code class="sourceCode pascal"><span id="cb1-1"><a href="#cb1-1" aria-hidden="true" tabindex="-1"></a><span class="kw">With</span> (SomeObject) <span class="kw">do</span> </span>
304-<span id="cb1-2"><a href="#cb1-2" aria-hidden="true" tabindex="-1"></a><span class="kw">begin</span></span>
305-<span id="cb1-3"><a href="#cb1-3" aria-hidden="true" tabindex="-1"></a> <span class="kw">If</span> Assigned(OnMyCallback) <span class="kw">then</span></span>
306-<span id="cb1-4"><a href="#cb1-4" aria-hidden="true" tabindex="-1"></a> OnMyCallback;</span>
307-<span id="cb1-5"><a href="#cb1-5" aria-hidden="true" tabindex="-1"></a> <span class="co">//parenthesis not required</span></span>
308-<span id="cb1-6"><a href="#cb1-6" aria-hidden="true" tabindex="-1"></a><span class="kw">end</span>;</span></code></pre></div></td>
309-<td><div class="sourceCode" id="cb2"><pre class="sourceCode pascal"><code class="sourceCode pascal"><span id="cb2-1"><a href="#cb2-1" aria-hidden="true" tabindex="-1"></a><span class="kw">With</span> (SomeObject) <span class="kw">do</span> </span>
310-<span id="cb2-2"><a href="#cb2-2" aria-hidden="true" tabindex="-1"></a><span class="kw">begin</span></span>
311-<span id="cb2-3"><a href="#cb2-3" aria-hidden="true" tabindex="-1"></a> <span class="kw">If</span> Assigned(OnMyCallback) <span class="kw">then</span></span>
312-<span id="cb2-4"><a href="#cb2-4" aria-hidden="true" tabindex="-1"></a> OnMyCallback();</span>
313-<span id="cb2-5"><a href="#cb2-5" aria-hidden="true" tabindex="-1"></a> <span class="co">//parenthesis required</span></span>
314-<span id="cb2-6"><a href="#cb2-6" aria-hidden="true" tabindex="-1"></a><span class="kw">end</span>;</span></code></pre></div></td>
315-</tr>
316-</tbody>
317-</table>
315+**Delphi**
318316
317+**FPC**
318+
319+``` pascal
320+With (SomeObject) do
321+begin
322+ If Assigned(OnMyCallback) then
323+ OnMyCallback;
324+ //parenthesis not required
325+end;
326+```
327+
328+``` pascal
329+With (SomeObject) do
330+begin
331+ If Assigned(OnMyCallback) then
332+ OnMyCallback();
333+ //parenthesis required
334+end;
335+```
336+
319337##### Déréférencement de pointeur d'enregistrement
320338
321339Dans Delphi , lorqu’on tente d’accéder aux membres d’un Record, il n’est pas nécessaire de faire la différence entre le pointeur du Record et le Record lui-même. FPC fait la distinction :
322340
323-<table>
324-<thead>
325-<tr>
326-<th><p>Delphi</p></th>
327-<th><p>FPC</p></th>
328-</tr>
329-</thead>
330-<tbody>
331-<tr>
332-<td><div class="sourceCode" id="cb1"><pre class="sourceCode pascal"><code class="sourceCode pascal"><span id="cb1-1"><a href="#cb1-1" aria-hidden="true" tabindex="-1"></a><span class="kw">Function</span> GetSomeValue(ARecord: PMyRecord):<span class="dt">Integer</span>;</span>
333-<span id="cb1-2"><a href="#cb1-2" aria-hidden="true" tabindex="-1"></a><span class="kw">begin</span></span>
334-<span id="cb1-3"><a href="#cb1-3" aria-hidden="true" tabindex="-1"></a> <span class="kw">If</span> Assigned(ARecord) <span class="kw">then</span></span>
335-<span id="cb1-4"><a href="#cb1-4" aria-hidden="true" tabindex="-1"></a> Result:=ARecord.SomeValue</span>
336-<span id="cb1-5"><a href="#cb1-5" aria-hidden="true" tabindex="-1"></a> <span class="kw">else</span></span>
337-<span id="cb1-6"><a href="#cb1-6" aria-hidden="true" tabindex="-1"></a> Result:=<span class="dv">0</span>;</span>
338-<span id="cb1-7"><a href="#cb1-7" aria-hidden="true" tabindex="-1"></a><span class="kw">end</span>;</span></code></pre></div></td>
339-<td><div class="sourceCode" id="cb2"><pre class="sourceCode pascal"><code class="sourceCode pascal"><span id="cb2-1"><a href="#cb2-1" aria-hidden="true" tabindex="-1"></a><span class="kw">Function</span> GetSomeValue(ARecord: PMyRecord):<span class="dt">Integer</span>;</span>
340-<span id="cb2-2"><a href="#cb2-2" aria-hidden="true" tabindex="-1"></a><span class="kw">begin</span></span>
341-<span id="cb2-3"><a href="#cb2-3" aria-hidden="true" tabindex="-1"></a> <span class="kw">If</span> Assigned(ARecord) <span class="kw">then</span></span>
342-<span id="cb2-4"><a href="#cb2-4" aria-hidden="true" tabindex="-1"></a> Result:=ARecord^.SomeValue</span>
343-<span id="cb2-5"><a href="#cb2-5" aria-hidden="true" tabindex="-1"></a> <span class="kw">else</span></span>
344-<span id="cb2-6"><a href="#cb2-6" aria-hidden="true" tabindex="-1"></a> Result:=<span class="dv">0</span>;</span>
345-<span id="cb2-7"><a href="#cb2-7" aria-hidden="true" tabindex="-1"></a><span class="kw">end</span>;</span></code></pre></div></td>
346-</tr>
347-</tbody>
348-</table>
341+**Delphi**
349342
343+**FPC**
344+
345+``` pascal
346+Function GetSomeValue(ARecord: PMyRecord):Integer;
347+begin
348+ If Assigned(ARecord) then
349+ Result:=ARecord.SomeValue
350+ else
351+ Result:=0;
352+end;
353+```
354+
355+``` pascal
356+Function GetSomeValue(ARecord: PMyRecord):Integer;
357+begin
358+ If Assigned(ARecord) then
359+ Result:=ARecord^.SomeValue
360+ else
361+ Result:=0;
362+end;
363+```
364+
350365##### Des parenthèses pour acceder aux chars d'une propriété string d'un objet
351366
352367Il est possible avec Delphi de traiter les propriétés comme des variables, même pour accéder directement aux valeurs particulières des Char d’un String. C’est impossible avec FPC, notamment lorsque des propriétés sont indexées (traitées comme des tableaux). Dans ce cas, la propriété appelée doit être comprise dans des parenthèses. Même si ce n’est pas toujours, le cas il est préférable de s’y astreindre systématiquement. Exemple :
353368
354-<table>
355-<thead>
356-<tr>
357-<th><p>Delphi</p></th>
358-<th><p>FPC</p></th>
359-</tr>
360-</thead>
361-<tbody>
362-<tr>
363-<td><div class="sourceCode" id="cb1"><pre class="sourceCode pascal"><code class="sourceCode pascal"><span id="cb1-1"><a href="#cb1-1" aria-hidden="true" tabindex="-1"></a><span class="kw">Type</span> TSomeComponent=<span class="kw">class</span>(TComponent)</span>
364-<span id="cb1-2"><a href="#cb1-2" aria-hidden="true" tabindex="-1"></a> <span class="co">//More code...</span></span>
365-<span id="cb1-3"><a href="#cb1-3" aria-hidden="true" tabindex="-1"></a><span class="kw">Published</span></span>
366-<span id="cb1-4"><a href="#cb1-4" aria-hidden="true" tabindex="-1"></a><span class="kw">Property</span> MyString:<span class="dt">String</span> index <span class="dv">3</span> <span class="kw">read</span> GetMyString;</span>
367-<span id="cb1-5"><a href="#cb1-5" aria-hidden="true" tabindex="-1"></a><span class="co">//More code...</span></span>
368-<span id="cb1-6"><a href="#cb1-6" aria-hidden="true" tabindex="-1"></a><span class="kw">End</span>;</span>
369-<span id="cb1-7"><a href="#cb1-7" aria-hidden="true" tabindex="-1"></a></span>
370-<span id="cb1-8"><a href="#cb1-8" aria-hidden="true" tabindex="-1"></a><span class="kw">var</span></span>
371-<span id="cb1-9"><a href="#cb1-9" aria-hidden="true" tabindex="-1"></a> MyChar:<span class="dt">char</span>;</span>
372-<span id="cb1-10"><a href="#cb1-10" aria-hidden="true" tabindex="-1"></a><span class="kw">begin</span></span>
373-<span id="cb1-11"><a href="#cb1-11" aria-hidden="true" tabindex="-1"></a> <span class="kw">If</span> Length(MyString)&gt;<span class="dv">2</span> <span class="kw">then</span></span>
374-<span id="cb1-12"><a href="#cb1-12" aria-hidden="true" tabindex="-1"></a> <span class="co">//no parenthesis needed</span></span>
375-<span id="cb1-13"><a href="#cb1-13" aria-hidden="true" tabindex="-1"></a> MyChar:= MyString[<span class="dv">3</span>];</span>
376-<span id="cb1-14"><a href="#cb1-14" aria-hidden="true" tabindex="-1"></a> <span class="co">//More code...</span></span>
377-<span id="cb1-15"><a href="#cb1-15" aria-hidden="true" tabindex="-1"></a><span class="kw">end</span>;</span></code></pre></div></td>
378-<td><div class="sourceCode" id="cb2"><pre class="sourceCode pascal"><code class="sourceCode pascal"><span id="cb2-1"><a href="#cb2-1" aria-hidden="true" tabindex="-1"></a><span class="kw">Type</span> TSomeComponent=<span class="kw">class</span>(TComponent)</span>
379-<span id="cb2-2"><a href="#cb2-2" aria-hidden="true" tabindex="-1"></a><span class="co">//More code...</span></span>
380-<span id="cb2-3"><a href="#cb2-3" aria-hidden="true" tabindex="-1"></a><span class="kw">Published</span></span>
381-<span id="cb2-4"><a href="#cb2-4" aria-hidden="true" tabindex="-1"></a><span class="kw">Property</span> MyString:<span class="dt">String</span> index <span class="dv">3</span> <span class="kw">read</span> GetMyString;</span>
382-<span id="cb2-5"><a href="#cb2-5" aria-hidden="true" tabindex="-1"></a><span class="co">//More code...</span></span>
383-<span id="cb2-6"><a href="#cb2-6" aria-hidden="true" tabindex="-1"></a><span class="kw">End</span>;</span>
384-<span id="cb2-7"><a href="#cb2-7" aria-hidden="true" tabindex="-1"></a></span>
385-<span id="cb2-8"><a href="#cb2-8" aria-hidden="true" tabindex="-1"></a><span class="kw">var</span></span>
386-<span id="cb2-9"><a href="#cb2-9" aria-hidden="true" tabindex="-1"></a> MyChar:<span class="dt">char</span>;</span>
387-<span id="cb2-10"><a href="#cb2-10" aria-hidden="true" tabindex="-1"></a><span class="kw">begin</span></span>
388-<span id="cb2-11"><a href="#cb2-11" aria-hidden="true" tabindex="-1"></a> <span class="kw">If</span> Length(MyString)&gt;<span class="dv">2</span> <span class="kw">then</span></span>
389-<span id="cb2-12"><a href="#cb2-12" aria-hidden="true" tabindex="-1"></a> <span class="co">//parenthesis sometimes needed</span></span>
390-<span id="cb2-13"><a href="#cb2-13" aria-hidden="true" tabindex="-1"></a> MyChar:= (MyString)[<span class="dv">3</span>];</span>
391-<span id="cb2-14"><a href="#cb2-14" aria-hidden="true" tabindex="-1"></a> <span class="co">//More code...</span></span>
392-<span id="cb2-15"><a href="#cb2-15" aria-hidden="true" tabindex="-1"></a><span class="kw">end</span>;</span></code></pre></div></td>
393-</tr>
394-</tbody>
395-</table>
369+**Delphi**
396370
371+**FPC**
372+
373+``` pascal
374+Type TSomeComponent=class(TComponent)
375+ //More code...
376+Published
377+Property MyString:String index 3 read GetMyString;
378+//More code...
379+End;
380+
381+var
382+ MyChar:char;
383+begin
384+ If Length(MyString)>2 then
385+ //no parenthesis needed
386+ MyChar:= MyString[3];
387+ //More code...
388+end;
389+```
390+
391+``` pascal
392+Type TSomeComponent=class(TComponent)
393+//More code...
394+Published
395+Property MyString:String index 3 read GetMyString;
396+//More code...
397+End;
398+
399+var
400+ MyChar:char;
401+begin
402+ If Length(MyString)>2 then
403+ //parenthesis sometimes needed
404+ MyChar:= (MyString)[3];
405+ //More code...
406+end;
407+```
408+
397409##### Ne confondez pas le pointeur et ce qui est pointé
398410
399411Parfois dans Delphi vous pouvez obtenir un pointeur, adressant un objet avec une valeur nulle. Bien que ce type de situation soit complexe, c’est très souvent le cas dans les grands paquets de composants afin de réduire les imbrications d’objets de différentes unités. Il est donc possible dans Delphi d’envoyer un pointeur nul à une fonction attendant un objet, sans se soucier du type d’objet associé au pointeur. En FPC vous ne devez pas confondre l’objet et son pointeur. La conversion de type est nécessaire.
400412
401413Exemple :
402414
403-<table>
404-<thead>
405-<tr>
406-<th><p>Delphi</p></th>
407-<th><p>FPC</p></th>
408-</tr>
409-</thead>
410-<tbody>
411-<tr>
412-<td><div class="sourceCode" id="cb1"><pre class="sourceCode pascal"><code class="sourceCode pascal"><span id="cb1-1"><a href="#cb1-1" aria-hidden="true" tabindex="-1"></a><span class="kw">Unit</span> <span class="dv">1</span></span>
413-<span id="cb1-2"><a href="#cb1-2" aria-hidden="true" tabindex="-1"></a> <span class="kw">Type</span> </span>
414-<span id="cb1-3"><a href="#cb1-3" aria-hidden="true" tabindex="-1"></a> TSomeObject=<span class="kw">class</span>(TComponent)</span>
415-<span id="cb1-4"><a href="#cb1-4" aria-hidden="true" tabindex="-1"></a> <span class="co">//More code...</span></span>
416-<span id="cb1-5"><a href="#cb1-5" aria-hidden="true" tabindex="-1"></a> <span class="kw">End</span>;</span>
417-<span id="cb1-6"><a href="#cb1-6" aria-hidden="true" tabindex="-1"></a></span>
418-<span id="cb1-7"><a href="#cb1-7" aria-hidden="true" tabindex="-1"></a> <span class="kw">Procedure</span> DoSomething(Value: TSomeObject);</span>
419-<span id="cb1-8"><a href="#cb1-8" aria-hidden="true" tabindex="-1"></a> <span class="kw">Function</span> GetSomeObject: TSomeObject;</span>
420-<span id="cb1-9"><a href="#cb1-9" aria-hidden="true" tabindex="-1"></a></span>
421-<span id="cb1-10"><a href="#cb1-10" aria-hidden="true" tabindex="-1"></a><span class="kw">Unit</span> <span class="dv">2</span></span>
422-<span id="cb1-11"><a href="#cb1-11" aria-hidden="true" tabindex="-1"></a> <span class="kw">Type</span> </span>
423-<span id="cb1-12"><a href="#cb1-12" aria-hidden="true" tabindex="-1"></a> TSomeComponent=<span class="kw">class</span>(TComponent)</span>
424-<span id="cb1-13"><a href="#cb1-13" aria-hidden="true" tabindex="-1"></a> <span class="co">//More code...</span></span>
425-<span id="cb1-14"><a href="#cb1-14" aria-hidden="true" tabindex="-1"></a> <span class="kw">Published</span> SomeObject: <span class="dt">Pointer</span>;</span>
426-<span id="cb1-15"><a href="#cb1-15" aria-hidden="true" tabindex="-1"></a> <span class="co">//More code...</span></span>
427-<span id="cb1-16"><a href="#cb1-16" aria-hidden="true" tabindex="-1"></a> <span class="kw">End</span>;</span>
428-<span id="cb1-17"><a href="#cb1-17" aria-hidden="true" tabindex="-1"></a></span>
429-<span id="cb1-18"><a href="#cb1-18" aria-hidden="true" tabindex="-1"></a>Application</span>
430-<span id="cb1-19"><a href="#cb1-19" aria-hidden="true" tabindex="-1"></a><span class="kw">var</span> </span>
431-<span id="cb1-20"><a href="#cb1-20" aria-hidden="true" tabindex="-1"></a> MyComponent: TSomeComponent;</span>
432-<span id="cb1-21"><a href="#cb1-21" aria-hidden="true" tabindex="-1"></a><span class="kw">begin</span></span>
433-<span id="cb1-22"><a href="#cb1-22" aria-hidden="true" tabindex="-1"></a> MyComponent.SomeObject:=GetSomeObject;</span>
434-<span id="cb1-23"><a href="#cb1-23" aria-hidden="true" tabindex="-1"></a> <span class="co">//More code...</span></span>
435-<span id="cb1-24"><a href="#cb1-24" aria-hidden="true" tabindex="-1"></a> DoSomething(MyComponent.SomeObject);</span>
436-<span id="cb1-25"><a href="#cb1-25" aria-hidden="true" tabindex="-1"></a><span class="kw">end</span>;</span></code></pre></div></td>
437-<td><div class="sourceCode" id="cb2"><pre class="sourceCode pascal"><code class="sourceCode pascal"><span id="cb2-1"><a href="#cb2-1" aria-hidden="true" tabindex="-1"></a><span class="kw">Unit</span> <span class="dv">1</span></span>
438-<span id="cb2-2"><a href="#cb2-2" aria-hidden="true" tabindex="-1"></a> <span class="kw">Type</span> </span>
439-<span id="cb2-3"><a href="#cb2-3" aria-hidden="true" tabindex="-1"></a> TSomeObject=<span class="kw">class</span>(TComponent)</span>
440-<span id="cb2-4"><a href="#cb2-4" aria-hidden="true" tabindex="-1"></a> <span class="co">//More code...</span></span>
441-<span id="cb2-5"><a href="#cb2-5" aria-hidden="true" tabindex="-1"></a> <span class="kw">End</span>;</span>
442-<span id="cb2-6"><a href="#cb2-6" aria-hidden="true" tabindex="-1"></a></span>
443-<span id="cb2-7"><a href="#cb2-7" aria-hidden="true" tabindex="-1"></a> <span class="kw">Procedure</span> DoSomething(Value: TSomeObject);</span>
444-<span id="cb2-8"><a href="#cb2-8" aria-hidden="true" tabindex="-1"></a> <span class="kw">Function</span> GetSomeObject: TSomeObject;</span>
445-<span id="cb2-9"><a href="#cb2-9" aria-hidden="true" tabindex="-1"></a></span>
446-<span id="cb2-10"><a href="#cb2-10" aria-hidden="true" tabindex="-1"></a><span class="kw">Unit</span> <span class="dv">2</span></span>
447-<span id="cb2-11"><a href="#cb2-11" aria-hidden="true" tabindex="-1"></a> <span class="kw">Type</span> TSomeComponent=<span class="kw">class</span>(TComponent)</span>
448-<span id="cb2-12"><a href="#cb2-12" aria-hidden="true" tabindex="-1"></a> <span class="co">//More code...</span></span>
449-<span id="cb2-13"><a href="#cb2-13" aria-hidden="true" tabindex="-1"></a> <span class="kw">Published</span> SomeObject: <span class="dt">Pointer</span>;</span>
450-<span id="cb2-14"><a href="#cb2-14" aria-hidden="true" tabindex="-1"></a> <span class="co">//More code...</span></span>
451-<span id="cb2-15"><a href="#cb2-15" aria-hidden="true" tabindex="-1"></a> <span class="kw">End</span>;</span>
452-<span id="cb2-16"><a href="#cb2-16" aria-hidden="true" tabindex="-1"></a></span>
453-<span id="cb2-17"><a href="#cb2-17" aria-hidden="true" tabindex="-1"></a>Application</span>
454-<span id="cb2-18"><a href="#cb2-18" aria-hidden="true" tabindex="-1"></a><span class="kw">var</span> </span>
455-<span id="cb2-19"><a href="#cb2-19" aria-hidden="true" tabindex="-1"></a> MyComponent: TSomeComponent;</span>
456-<span id="cb2-20"><a href="#cb2-20" aria-hidden="true" tabindex="-1"></a><span class="kw">begin</span></span>
457-<span id="cb2-21"><a href="#cb2-21" aria-hidden="true" tabindex="-1"></a> MyComponent.SomeObject:=<span class="dt">Pointer</span>(GetSomeObject);</span>
458-<span id="cb2-22"><a href="#cb2-22" aria-hidden="true" tabindex="-1"></a> <span class="co">//More code...</span></span>
459-<span id="cb2-23"><a href="#cb2-23" aria-hidden="true" tabindex="-1"></a> DoSomething(TSomeObject(MyComponent.SomeObject));</span>
460-<span id="cb2-24"><a href="#cb2-24" aria-hidden="true" tabindex="-1"></a><span class="kw">end</span>;</span></code></pre></div></td>
461-</tr>
462-</tbody>
463-</table>
415+**Delphi**
464416
417+**FPC**
418+
419+``` pascal
420+Unit 1
421+ Type
422+ TSomeObject=class(TComponent)
423+ //More code...
424+ End;
425+
426+ Procedure DoSomething(Value: TSomeObject);
427+ Function GetSomeObject: TSomeObject;
428+
429+Unit 2
430+ Type
431+ TSomeComponent=class(TComponent)
432+ //More code...
433+ Published SomeObject: Pointer;
434+ //More code...
435+ End;
436+
437+Application
438+var
439+ MyComponent: TSomeComponent;
440+begin
441+ MyComponent.SomeObject:=GetSomeObject;
442+ //More code...
443+ DoSomething(MyComponent.SomeObject);
444+end;
445+```
446+
447+``` pascal
448+Unit 1
449+ Type
450+ TSomeObject=class(TComponent)
451+ //More code...
452+ End;
453+
454+ Procedure DoSomething(Value: TSomeObject);
455+ Function GetSomeObject: TSomeObject;
456+
457+Unit 2
458+ Type TSomeComponent=class(TComponent)
459+ //More code...
460+ Published SomeObject: Pointer;
461+ //More code...
462+ End;
463+
464+Application
465+var
466+ MyComponent: TSomeComponent;
467+begin
468+ MyComponent.SomeObject:=Pointer(GetSomeObject);
469+ //More code...
470+ DoSomething(TSomeObject(MyComponent.SomeObject));
471+end;
472+```
473+
465474#### Ressources
466475
467476> **Note:** La section ci-dessous n'est peut-être pas nécessaire. Les dernières versions de Lazarus supportent directement les fichers .res. L'installateur Windows de Lazarus inclut un compilateur de ressource qui supporte les fichiers .rc. Sur Unix, assurez-vous que windres est installé ainsi vous pouvez utiliser les fichiers .rc. Se reporter à [[Lazarus Resources/fr|Ressources FPC]].
468477
469478Les fichiers de ressource de Delphi sont spécifiques à Win32 et ne sont pas compatible avec Lazarus, donc vous devez les recréer et les compiler avec l'outil Lazres. Lazres peut être trouvé dans le sous-dossier lazarus/tools. Si vous avez téléchargé les sources de Lazarus, vous aurez besoin de le compiler.
470479
471480- cd lazarus/tools
472481- make install
473482
474483Pour ajouter une ressource à votre application :
475484
476485- lazres myresource.lrs mypix.xpm anotherpix.xpm
477486- Ajouter l'unité LResources à votre clause Uses
478487- Incluez le fichier .lrs que vous avez créé sous le bloc d'initialisation
479488
480489Exemple:
481490
482491``` pascal
483492function TForm1.LoadGlyph(const GlyphName: String): TBitMap;
484493begin
485494 Result:= TPixmap.Create;
486495 Result.LoadFromLazarusResource(GlyphName);
487496end;
488497//More code...
489498begin
490499 Speedbutton1.glyph:= LoadGlyph('mypix');
491500 //More code...
492501end;
493502
494503initialization
495504{$I unit1.lrs}
496505{$I myresource.lrs}
497506end.
498507```
499508
500509### Une autre méthode pour convertir un projet Delphi ou Kylix vers Lazarus
501510
502511- Renommer ou copier tous les fichiers .dfm ou .xfm vers .lfm (les très anciennes versions de Delphi ne produisent pas de fichiers .dfm basés sur du texte. L'utilitaire convert est, si présent, dans le dossier \bin et doit être utilisé d'abord avec les .dfm)
503512- Renommer ou copier le fichier .dpr en .lpr.
504513- Apportez toutes les modifications nécessaires aux fichier .lpr.
505514
5065151. Ajouter les directives {\$mode delphi}{\$H+} ou {\$mode objfpc}{H+}
5075162. Ajouter 'Interfaces' à la clause Uses
5085173. Commenter ou supprimer {\$R *.res} ou mettre en directive au besoin
509518
510519- Apporter les modifications nécessaires à tous les fichiers d'unités :
511520
5125211. Ajouter la directive {\$mode delphi}{\$H+} ou {\$mode objfpc}{H+}
5135222. Ajouter 'LResources' - à faire : vérifier si c'est toujours à faire pour les les nouvelles versions de Lazarus
5145233. Si la fiche contient des boutons, ajouter l'unité 'Buttons' à la clause Uses.
5155244. Commenter ou supprimer les directives {\$R *.dfm} or {\$R *.xfm}
5165255. Ajouter la section 'Initialization' à la fin de chaque fichier d'unité, et ajouter la directive {\$I unitname.lrs} dedans
517526
518527- Sélectionner Projet-\>Nouveau projet depuis un fichier
519528- Sélectionner le fichier .lpr
520529- Dans la fenêtre 'Créer un nouveau projet', choisissez 'Application'
521530- Construisez le projet et faites les corrections nécessaire plus loin pour obtenir une compilation propre. A ce moment, le fichier .lpi est généré automatiquement. vous pouvez obtenir des messages 'Error reading Form', cliquer sur 'Continuer le chargement' dans ce cas.
522531- enregistrer tout, et vous avez un projet Lazarus :-)
523532
524533## Obtenir de l'aide
525534
526535Si vous rencontrez un problème pendant la conversion que vous ne pouvez pas résoudre, il y a une large variété d'endroits où l'on peut obtenir de l'aide.
527536
528-<table>
529-<tbody>
530-<tr>
531-<td colspan="2"><h3 id="documentation">Documentation</h3></td>
532-</tr>
533-<tr>
534-<td><p>Pour les problèmes purement Pascal Objet et FPC</p></td>
535-<td style="vertical-align: top"><p>Le meilleur endroit pour commencer est la <a href="http://www.freepascal.org/docs-html/">Documentation de Free Pascal</a> par Michaël Van Canneyt et Florian Klämpfl.</p></td>
536-</tr>
537-<tr>
538-<td><p>Pour les problème plus orientés vers Lazarus</p></td>
539-<td style="vertical-align: top"><p>La documentation du projet dans la base de connaissance Lazarus-CCR [[Main Page/fr|Page principale]] est le prochain endroit où vous regarderez.</p></td>
540-</tr>
541-<tr>
542-<td colspan="2"><h3 id="support_par_les_pairs">Support par les pairs</h3>
543-<p>Pour poser des questions à des experts ou des développeurs plus avancés :</p></td>
544-</tr>
545-<tr>
546-<td style="white-space: nowrap"><p>Mailing lists</p></td>
547-<td style="vertical-align: top"><p>You can post a question on any of the <a href="http://www.freepascal.org/maillist.html">mailing lists for the Free Pascal Compiler</a> or the <a href="http://forum.lazarus.freepascal.org/index.php?action=forum">FPC/Lazarus forums</a> where a lot of experts are subscribed.</p></td>
548-</tr>
549-<tr>
550-<td style="white-space: nowrap"><p>Si vous avez accès à IRC:</p></td>
551-<td style="vertical-align: top"><p>sur irc.freenode.net: <a href="irc://irc.freenode.net/fpc">#fpc</a> pour FPC, ou <a href="irc://irc.freenode.net/lazarus-ide">#lazarus-ide</a> pour Lazarus</p></td>
552-</tr>
553-<tr>
554-<td style="white-space: nowrap"><p>Forum francophone d'entraide :</p></td>
555-<td style="vertical-align: top"><p>sur <a href="http://www.developpez.net/forums/f21/autres-langages/pascal/">Developpez.com (Zone Pascal)</a></p></td>
556-</tr>
557-</tbody>
558-</table>
537+### Documentation
538+
539+Pour les problèmes purement Pascal Objet et FPC
540+
541+Le meilleur endroit pour commencer est la [Documentation de Free Pascal](http://www.freepascal.org/docs-html/) par Michaël Van Canneyt et Florian Klämpfl.
542+
543+Pour les problème plus orientés vers Lazarus
544+
545+La documentation du projet dans la base de connaissance Lazarus-CCR [[Main Page/fr|Page principale]] est le prochain endroit où vous regarderez.
546+
547+### Support par les pairs
548+
549+Pour poser des questions à des experts ou des développeurs plus avancés :
550+
551+Mailing lists
552+
553+You can post a question on any of the [mailing lists for the Free Pascal Compiler](http://www.freepascal.org/maillist.html) or the [FPC/Lazarus forums](http://forum.lazarus.freepascal.org/index.php?action=forum) where a lot of experts are subscribed.
554+
555+Si vous avez accès à IRC:
556+
557+sur irc.freenode.net: [\#fpc](irc://irc.freenode.net/fpc) pour FPC, ou [\#lazarus-ide](irc://irc.freenode.net/lazarus-ide) pour Lazarus
558+
559+Forum francophone d'entraide :
560+
561+sur [Developpez.com (Zone Pascal)](http://www.developpez.net/forums/f21/autres-langages/pascal/)
559562
560563### Bases de connaissance
561564
562565Il existe des bases de recherche et de connaissances exceptionnelles en ligne qui peuvent également être d'une grande aide pour apprendre de nouvelles techniques et résoudre des problèmes:
563566
564567- Tamarack Associates exploite un \[ <http://codenewsfast.com/> moteur de recherche\] rapide particulièrement pour les archives Usenet de Borland.
565568- Mer Systems Inc. fournit un [moteur de recherche](http://www.mers.com/searchsite.html) similaire
566569- Une autre source d'information exceptionnelle ainsi qu'une capacité de [recherche](http://www.efg2.com/Lab/search.htm) sur site est Earl F. Glynn Computer Lab and Reference.
567570
568571## Empaqueter et livrer votre composant
569572
570573### Création d'un paquet Lazarus pour votre(vos) composant(s)
571574
572575La création d'un paquet rend plus aisé le processus d'installation du code que vous avez converti... surtout si vous fournisseez plus d'un composant. Mattias Gärtner a écrit une vue d'ensemble des [[Lazarus Packages/fr|paquets Lazarus]] qui devrait être lus préalablement à ce processus.
573576
574577### Documentation
575578
576579L'objectif de ce site et le format wiki vise à rendre facile et rapide la production d'une documentation de niveau professionnelle. Le wiki rend aussi possible de voir le résultat de votre travail immédiatement et de faire tous les changements que vous voulez en temps réel.
577580
578581L'utilisation du wiki Lazarus-CCR pour créer une documentation de bel aspect est très simple. Si vous n'avez jamais utilisez de balisage auparavant, vous pouvez vous y familiariser à l'aide de l'aire d'entrainement [[Sand Box/fr|bac à sable]].
579582
580583### Création d'une page de livraison du code
581584
582585La livraison de la page de code contient l'information vitale sur votre composant qu'un téléchargeur aurait besoin de savoir, telle que la licence, les plates-formes prévues, le statut (alpha, bêta, stable...), d'où le télécharger, qui l'a écrit, est-ce qu'un support est disponible... etc.
583586
584587La procédure suivante vous permettra de créer une page de publication de code avec votre navigateur :
585588
586589- Aller vers le [[Release new component/fr|Release new component]]
587590- Taper le noms de votre composant dans la boîte de texte et cliquer sur *Create Article*
588591- Remplir le modèle et enregistrer.
589592- Editer la page [[Components and Code examples/fr|Components and Code examples]] et ajouter le lien que vous venez de créer vers la section "Released Components". enregistrer la page modifiée.
590593
591594### Soumission de votre comoposant
592595
593596Si vous n'êtes pas le responsable de la livraison dans le projet, remonter votre composant vers le système de livraison de SourceForge et ajoutez-le à la liste des paquets de livraison. Autrement, envoyez-le à l'un des administrateur du projet (Tom Lisjac ou Vincent Snijders) et nous l'ajouterons au dépôt ("repository"). Avant que nous le déposions, vous devez créer une *Page de livraison de code* pour décrire votre composant. Vous pouvez utiliser la page [[Release new component/fr|Livraison d'un nouveau composant]] pour commencer la création d'une telle page.
594597
595598Si vous pensez que vous aurez encore besoin de développer votre composant, vous pouvez le déposer dans SVN, comme cela vous aurez encore accès à lui. Si nous nous lassons de soumettre vos correctifs, nous vous donnerons l'accès en écriture au SVN, afin que vous puissiez valider vos correctifs vous-même. Pour plus de détails, voir l'[[Using the Lazarus-ccr SVN repository/fr|Utilisation du référentiel SVN de Lazarus-ccr]].
596599
597600---
598601*From the Free Pascal wiki, page "Code Conversion Guide/fr", as it stood on 2020-02-10 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