Code Conversion Guide/de: what changed

Revision 3 to 4. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		Diese Seite handelt davon, wie man bestehenden Delphi oder Kylix Code konvertiert oder portiert, um ihn mit dem [[Free Pascal/de\|Free Pascal]] Compiler und der Lazarus IDE zum Laufen zu bringen. Obwohl Lazarus und der Free Pascal Compiler gemeinsame Aspekte mit Delphi und Kylix haben, sind sie keine Klone. Es gibt eine Anzahl von Bibliotheksaufrufen und Konventionsunterschieden... und in einigen Bereichen ist FPC erweitert und kann im Hinblick auf korrekte Syntax anspruchsvoller sein. Bitte schauen Sie im [[Lazarus For Delphi Users/de\|Lazarus für Delphi-Benutzer]] Handbuch für eine Beschreibung einiger funktioneller Unterschiede nach.
2	2
3	3		Der Zweck dieses Handbuchs ist es, einige der spezifischen Unterschiede zu dokumentieren, die häufig während des Codekonvertierungsprozesses auftreten, wenn existierender Code von Delphi nach Lazarus übersetzt wird.
4	4
5	5		Dieses Dokument wurde im Bereich Wissensbasis des Wikis platziert, so dass es einfach von jedem erweitert werden kann, der auf ein einzigartiges Problem gestoßen ist und andere darauf aufmerksam machen möchte.
6	6
7	7		## Auswahl einer Komponente oder Bibliothek für die Konvertierung
8	8
9	9		### Wo Code zum Konvertieren zu finden ist
10	10
11	11		Im Internet ist eine MENGE Code verfügbar, der für die Verwendung mit FPC und Lazarus konvertiert werden kann. Hier ist eine [[Page Of Code Sites\|Seite]], die einfach ein Anfang ist. Bitte erweitern Sie die Seite, wenn Sie weitere Stellen kennen. TurboPower Software hat vor kurzem ihr gesamtes kommerzielles Angebot unter der MPL heraus gegeben. Eine Liste der verfügbaren Packages ist [hier](http://sourceforge.net/users/tpsfadmin/) zu finden.
12	12
13	13		Um doppelten Aufwand zu vermeiden, sind bereits konvertierte Packages auf der [[Components and Code examples]] Seite aufgeführt. Wenn Sie ein Package konvertiert haben oder daran arbeiten, dann fügen Sie bitte eine Notiz auf der [[Current conversion projects]] Seite hinzu.
14	14
15	15		### Lizenzierung
16	16
17	17		Lizenzen für existierenden Code reichen von Freeware/Public Domain bis zu eingeschränkten Versionen, welche Modifizierung, Weiterverteilung und kommerzielle Verwendung verbieten. Bevor Sie irgendein Package konvertieren, ist es eine gute Idee, seine Lizenz zu überprüfen und sicherzustellen, dass sie mit Lazarus und dem Free Pascal Compiler kompatibel ist. Lizenzauswahl ist bei Komponenten besonders wichtig, seit das Ablegen auf einem Formular eine nicht gewollte oder inkompatible Lizenz für die gesamte Anwendung aufbürden kann.
18	18
19	19		Wenn Sie Komponenten konvertieren, respektieren Sie bitte die Wünsche des Originalautors und belassen alle Copyright- und Lizenz-Header mit Email-Adressen und URl's. Es gehört zum guten Ton und ist oft hilfreich, um den Autor zu informieren, dass seine Komponente konvertiert wurde... besonders wenn sich die Komponente unter einer restriktiven Lizenz befindet. Neues Interesse an einer alten oder vergessenen Komponente kann manchmal die Autoren inspirieren, ihr Original und die allzu restriktive Lizenzierung zu überarbeiten.
20	20
21	21		Im Allgemeinen sind Public Domain (Freeware) und die LGPL/MPL Komponenten die flexibelsten zum Vertreiben. Für mehr Information ist die [Open Source Definition](http://www.opensource.org/docs/definition.php) ein guter Platz zum Starten. Dort gibt es auch verschiedene Vergleiche, die verdeutlichen, was die verschiedenen Lizenztypen bedeuten und welchen Einfluss sie auf den Code haben, auf den sie sich beziehen. Suchen Sie nach "open source license comparison"
22	22
23	23		### Abhängigkeiten
24	24
25	25		Ein anderer Schritt vor einer Konvertierung ist, dass Sie überprüfen, ob der Code verborgene Abhängigkeiten von anderen Packages enthält, die vielleicht nicht verfügbar sind oder einen beträchtlichen Konvertierungsaufwand darstellen. Einige Freeware-Angebote sind gebunden an oder erweitern proprietäre Packages, die häufig nicht mehr erhältlich sind oder mit ungeeigneten Lizenzen versehen sind.
26	26
27	27		### Compiler Probleme
28	28
29	29		Siehe:
30	30
31	31		- [bekannte Probleme](http://www.freepascal.org/probs.html)
32	32		- [Nichtbereinigte Bugs](http://www.freepascal.org/bugs/db.php3?statusfield=Unfixed)
33	33
34	34		### Plattformen und OS Probleme
35	35
36	36		Lazarus und der Free Pascal Compiler sind [[Glossary\|cross-platform]] und cross-architecture Entwicklungswerkzeuge. Im Gegensatz dazu wurde der existierende Delphi-Code meistens speziell für einen Intel Prozessor unter Win32 entwickelt. Wenn Ihr Kandidat sehr viel Win32 spezifischen Code enthält, ist es häufig günstiger, nach einer weniger plattformabhängigen Alternative zu suchen. Aber lassen Sie sich davon nicht entmutigen. Es ist erstaunlich, was die LCL unterstützt!
37	37
38	38		## Durchführen der Konvertierung
39	39
40	40		### Einrichten der Lazarus Umgebung für ein Konvertierungs-Projekt
41	41
42	42		#### Erstellen eines Testprojekts
43	43
44	44		- Kopieren Sie den zu konvertierenden Code in ein Unterverzeichnis (z.B.: convertdir)
45	45		- Starten Sie Lazarus
46	46		- Datei -\> Alles speichern in das convertdir Unterverzeichnis. Aussagekräftige Namen für Projekt und Units sind optional.
47	47		- Öffnen Sie die zu konvertierende "main" Unit in convertdir
48	48		- Fügen Sie zum Projekt hinzu: Projekt -\> Datei im Editor ins Projekt aufnehmen
49	49		- Starten Sie Werkzeuge -\> Schnelle Syntaxüberprüfung oder Start -\> Alles neu erstellen um loszulegen.
50	50
51	51		#### Grundsätzlich beachten
52	52
53	53		- Groß- und Kleinschreibung von Dateinamen werden unter der Version 1.0.x des Compilers unterschieden. Wenn Sie mit dieser Version arbeiten, schreiben Sie alle Dateinamen klein. Sie werden "File not found" Fehler bekommen, wenn Sie es nicht tun.
54	54
55	55		#### Delphi VCL, Kylix CLX Quellen in Lazarus
56	56
57	57		Während der Konvertierung von Delphi/Kylix Quellen ist es oft hilfreich, eine 'find declaration' zu machen, um zu sehen, was eine bestimmte Funktion macht. Die Lazarus IDE kann die Delphi/Kylix Quellen analysieren. Um dies zu tun, werden einige Suchpfade und Compilereinstellungen benötigt. Sie können dies einfach einrichten unter
58	58
59	59		Einstellungen -\> CodeTools Defines Editor -\> Vorlage einfügen
60	60
61	61		### Konvertierungsprobleme und Lösungen
62	62
63	63		#### Delphi / Kylix Datei-Entsprechungen in Lazarus
64	64
65	65		\| \| \| \|
66	66		\|----\|----\|----\|
67	67		\| Delphi / Kylix \| Lazarus \| Beschreibung \|
68	68		\| .pas .dfm / .xfm .dcu / .dpu .dpr (main project file) .res .dof / .kof --- --- --- \| .pas, .pp .lfm .o .lpr --- --- .lrs .lpi (main project file) .ppu \| Pascal Unit Datei Formulardaten Datei Compilierte Unit Datei Projektdatei Ressourcendatei Projektoptionen Datei Lazarus Ressourcen Datei Lazarus Projekt Informations Datei FPC Unit Beschreibungsdatei \|
69	69
70	70		#### Konvertierung von Delphi Projekten/Formularen/Units nach Lazarus
71	71
72	72		Benennen Sie die .dpr Datei in eine .lpr Datei um. Kommentieren Sie die
73	73
74	74		{\$R *.res}
75	75
76	76		Direktive aus oder entfernen Sie und fügen eine
77	77
78	78		{\$mode delphi}{\$H+}
79	79
80	80		oder
81	81
82	82		{\$mode objfpc}{\$H+}
83	83
84	84		Direktive zur .lpr Datei hinzu. Die Lazarus IDE kann diese Konversion mit dem Tools-Menüpunkt "Convert Delphi Project to Lazarus Project" unterstützen. Sie fragt nach einer .dpr (Delphi Project) Datei und konvertiert sie in eine .lpr; außerdem erzeugt sie die .lpi Datei und konvertiert alle Units.
85	85
86	86		Viele existierende Delphi Formulare können durch Verwendung des in die IDE eingebauten .dfm to .lfm form Umwandlers konvertiert werden, damit sie mit Lazarus richtig funktionieren. Er ist im Werkzeuge Menü als "Convert DFM file to LFM" zu finden. Öffnen Sie den file Dialog, wählen Sie die dfm Datei aus und der Umwandler wird den Rest erledigen.
87	87
88	88		Wenn Sie die ganze Unit konvertieren müssen (mit oder ohne ein Formular), enthält Lazarus auch ein eingebautes "Convert Delphi unit to Lazarus unit", welches das folgende für Sie erledigt -
89	89
90	90		1. berichtigt die Schreibweise (groß/klein) der include Dateinamen und uses Abschnitte.
91	91		2. konvertiert die .dfm Datei in eine .lfm Datei (gegenwärtig ohne Inhaltsprüfung, nur Formatierung)
92	92		3. erzeugt eine leere .lrs Datei (der Inhalt wird später erzeugt)
93	93		4. fügt die
94	94		{\$mode delphi}
95	95
96	96		Direktive hinzu
97	97		5. ersetzt die windows Unit durch LCLIntf
98	98		6. fügt die LResources Unit hinzu falls erforderlich (i.e., if unit.lrs is to be used;
99	99		uses LResources
100	100
101	101		can be in the implementation part)
102	102		7. entfernt die variants Unit
103	103		8. entfernt die
104	104		{\$R *.dfm}
105	105
106	106		Direktive
107	107		9. fügt den initialization Abschnitt und die
108	108		{\$i unit.lrs}
109	109
110	110		Direktive hinzu
111	111
112	112		#### Auswahl des richtigen Compilermodus
113	113
114	114		Der [[Free Pascal/de\|Free Pascal]] Compiler unterstützt 5 unterschiedliche Pascal Modi. Zum Beispiel TP für Turbo Pascal, lässt Sie Turbo Pascal Units kompilieren. Es gibt auch einen DELPHI Kompatibilitäts-Modus, der gesetzt werden kann, um bestehenden Code einfacher zu konvertieren. Lazarus bevorzugt den OBJFPC Modus, welcher fast dem DELPHI Modus gleicht, aber weniger mehrdeutig als die Delphi Syntax ist. Hier sind die wichtigen Punkte:
115	115
116	116		Der Modus kann auf der Befehlszeile oder beim Start der Quelle gewählt werden. Die Verwendung der Befehlszeile hat den Vorteil, dass Sie die Quelle nicht ändern müssen, aber den Nachteil, dass anderes erzählt werden muss.
117	117
118	118		Die meisten Delphi Units können mit dem [[Free Pascal/de\|Free Pascal]] Compiler kompiliert werden, wenn man gleich nach dem Unitnamen folgendes hinzufügt:
119	119
120		-	~~```~~
	120	+	```text
121	121		{$IFDEF FPC}
122	122		{$MODE DELPHI}
123	123		{$ENDIF}
124	124		```
125	125
126	126		Für mehr Details über die [[Free Pascal/de\|Free Pascal]] Modi siehe die [Free Pascal Dokumentation](http://www.freepascal.org/docs-html/prog/progap4.html#progse62.html). Für Information zu Laufzeitvariablen des Compilers (z.B. aktueller Modus) siehe [Free Pascal Dokumentation](http://www.freepascal.org/docs-html/prog/progap7.html#x310-311000G).
127	127
128	128		#### Cross-Plattform Überlegungen
129	129
130	130		- Das Verwenden von Inline Assembler ist immer problematisch, weil der Code dann nur auf Intel-Rechnern läuft. Es kommt auch vor, dass Entwickler Code in Pascal schreiben, aber eine optimierte Alternative in Assembler entwickeln, die durch ifdef-Konstrukte nur für Intel-Rechner gilt. Auch TurboPower selbst verwendet diese Technik an verschiedenen Stellen. Wenn das bei einem Package, das Sie übernehmen der Fall ist, schalten Sie auf den Modus Pascal.
131	131		- Verwenden Sie keine spezielle Speicheradressen, wie z. B. aus dem BIOS Datenbereich. Finden Sie heraus, was der Code erreichen will und suchen Sie nach einer Alternative, die für alle Plattformen funktioniert.
132	132		- Verwenden Sie keine Prozessor-spezifischen Tricks (wie z. B. die Intel TSC-Register), ohne dass Sie den Code in einem ifdef-Konstrukt als Plattform spezifisch markieren und entwickeln Sie eine Alternative für die anderen Plattformen.
133	133		- Generell gilt also: Wenn Sie Betriebssystem-spezifischen Code benötigen, dann müssen Sie IFDEFs verwenden. Siehe unten für eine Liste der Makros.
134	134
135	135		#### Hilfreiche Compiler Variablen / Defines / Makros
136	136
137	137		Um Code zu schreiben, der sich auf verschiedenen Systemen unterschiedlich verhält, können Sie die
138	138
139	139		{\$IFDEF Name}
140	140
141	141		Anweisungen verwenden.
142	142
143	143		- {\$IfDef LCL}
144	144
145	145		Diese Variable ist definiert, wenn das LCL Package verwendet wird. Hilfreich, um Code zu schreiben, der mit der LCL und Delphi funktioniert. For compatibility reasons FPC defines the DELPHI makro in mode Delphi. So you can not use {\$IFNDEF DELPHI}.
146	146
147	147		- {\$IfDef LCL}
148	148
149	149		This variable is defined, when using the LCL package. Useful to write code, that works with the LCL and Delphi.
150	150
151	151		- {\$IfDef LCLGtk}
152	152
153	153		,
154	154
155	155		{\$IfDef LCLWin32}
156	156
157	157		,
158	158
159	159		{\$IfDef LCLQt}
160	160
161	161		, ...
162	162
163	163		Diese Variable ist definiert, wenn das LCL Package verwendet wird und das spezifische Widgetset benutzt wird. Hilfreich um Code zu schreiben, der mit der LCL auf einer spezifischen Plattform funktioniert.
164	164
165	165		- {\$IfDef FPC}
166	166
167	167		Diese Variable ist definiert, wenn der FPC Compiler verwendet wird. Hilfreich um Code zu schreiben, der mit FPC und Delphi funktioniert.
168	168
169	169		- {\$IfDef Unix}
170	170
171	171		,
172	172
173	173		{\$IfDef Win32}
174	174
175	175		, ...
176	176
177	177		Von FPC für das aktuelle Ziel OS definiert. Delphi definiert "Linux", "Win32" und "MSWindows". [[Free Pascal/de\|Free Pascal]] läuft auf viel mehr Plattformen und daher wird empfohlen, allgemeinere Begriffe zu verwenden. Zum Beispiel ist "Unix" definiert für Linux, FreeBSD, NetBSD und OpenBSD, wo Lazarus bereits läuft. Verwenden Sie
178	178
179		-	~~```~~
	179	+	```text
180	180		{$IfDef Linux}
181	181		{$Define Unix}
182	182		{$EndIf}
183	183		```
184	184
185	185		als "work around" für Kylix.
186	186
187	187		- {\$IfDef ENDIAN_BIG}
188	188
189	189		Diese Variable wird auf Prozessoren wie dem PowerPC definiert (zum Beispiel ältere Apple Computer, bis MacOSX 10.2), die eine im Vergleich zu Intel-Prozessoren umgekehrte Byte Order haben.
190	190
191	191		- {\$IfDef ENDIAN_BIG}
192	192
193	193		Für mehr Details siehe die [Free Pascal Dokumentation](http://www.freepascal.org/docs-html/prog/prog.html#QQ2-23-21).
194	194
195	195		#### 32 bit / 64 bit Unterstützung
196	196
197	197		Pointers under 64bit need 8 bytes instead of 4 on 32bit. The 'Integer' type remains for compatibility 32bit. This means you can no longer typecast pointers into integers and back. FPC defines two new types: PtrInt and PtrUInt. PtrInt is a 32bit signed integer on 32 bit platforms and a 64bit signed integer on 64bit platforms. The same for PtrUInt, but unsigned integer instead. Use for code that should work with Delphi and FPC:
198	198
199	199		``` pascal
200	200		{$IFNDEF FPC}
201	201		type
202	202		PtrInt = integer;
203	203		PtrUInt = cardinal;
204	204		{$ENDIF}
205	205		```
206	206
207	207		Ersetzen Sie alle integer(SomePointerOrObject) mit PtrInt(SomePointerOrObject).
208	208
209	209		#### Finden eines fehlenden Bezeichners
210	210
211	211		Es gibt Unterschiede darin, wie die LCL organisiert ist im Vergleich zur Delphi VCL. Wenn Sie einen "not found" Compilerfehler erhalten über eine wichtige Klasse oder Bezeichner, stehen die Chancen gut, dass Sie die Klasse oder den Bezeichner in einer anderen Unit finden könne. Eine komplette Cross-Reference können Sie finden, indem Sie grep auf das Verzeichnis lazarus/docs/xml oder das Unterverzeichnis lcl anwenden.
212	212
213	213		Zum Beispiel erzeugt der häufig verwendete TButton üblicherweise einen Fehler im Delphi Code, weil er sich in der Unit buttons.pp befindet. Das folgende Kommando findet die richtige Unit sehr schnell (im Lazarus Quellenverzeichnis):
214	214
215		-	~~```~~
	215	+	```text
216	216		grep -in ' tbutton =' lcl/*
217	217		```
218	218
219	219		#### Wichtige Unit Unterschiede zwischen Lazarus und Delphi
220	220
221	221		Bitte ergänzen Sie diesen Abschnitt!
222	222
223	223		- Windows-\>Interfaces, LCLIntf, LCLType, LCLProc, VCLGlobals, ...)
224	224
225	225		Da die LCL nicht Windows-spezifisch ist, ist der Code, der sich in der Delphi Windows Unit für den direkten Zugriff auf das Win32 API befindet, abstrahiert in separate Schnittstellen, auf welche mit der LCLIntf Unit Zugriff genommen werden kann. Beachten Sie, dass Lazarus nicht win32 emuliert, so dass mehrere Funktionen fehlen und einige nicht wie ihre win32-Gegenstücke funktionieren. Diese Funktionen existieren nur für die Delphi-Kompatibilität und sollten nur für Quick&Dirty-Portierungen benutzt werden. LCL beinhaltet auch viele Typen nicht, so dass oftmals LCLType und manchmal VCLGlobals benötigt werden. LCLProc enthält auch ein paar Funktionen, die hilfreich sein können für maschinennahere Bearbeitung wie "FreeThenNil" wie in Delphi 5 und höher, "DeleteAmpersands" um zusätzliche Et-Zeichen aus Zeichenketten für Kontrollen zu entfernen (vs && etc). Die Interfaces-Unit muss in der .lpr Datei enthalten sein, um das passende Widgetset zu initialisieren.
226	226
227	227		- Messages-\>LMessages
228	228
229	229		TControl-Messages für win32-Ereignis-Callbacks vom Format WM_CALLBACK und die Structs, die dazugehören, finden sich oftmals in der Messages-Unit in Delphi. In LCL befinden diese sich meistens in LMessages, üblicherweise mit einer Namensänderung von WM zu LM, zum Beispiel WM_MOUSEENTER wird LM_MOUSEENTER, und TWMMouse wird TLMMouse.
230	230
231	231		- Graphics, Controls-\>GraphTypes, GraphMath, Graphics, Controls
232	232
233	233		Um einige Sachen zu vereinfachen und die Komplexität von Kreisabhängigkeiten zwischen Units zu verringern, wurden einige Typen in einer gemeinsamen Unit namens GraphType abstrahiert, die sich in Delphi in Graphics oder Controls befinden, bspw. das bvNone usw. von Panels. Deswegen müssen Sie diese Unit gelegentlich einbinden. Eine weitere Unit, leider inkompatibel zu Delphi, liefert zusätzliche Funktionalität, GraphMath. Sie ermöglicht TFloatPoints für präzise Berechnungen, verschiedene Routinen für den Umgang mit Beziers, Linien und Kreisbögen, sowie überladene Operatoren zur Benutzung mit TPoints und TRect, um Punkte derart zu addieren Point1 := Point2 + Point3 oder Rechtecke zu vergleichen if(rect1 = rect2) then ...
234	234
235	235		- Mask-\>MaskEdit
236	236
237	237		Aus Überlegungen für eine bessere Benennung wurde die Unit für TMaskEdit \[MaskEdit \\|\] anstelle des leicht unklareren Mask wie in vielen Delphi Versionen.
238	238
239	239		- StdCtrls-\>StdCtrls,Buttons
240	240
241	241		In vielen Delphi Versionen befindet sich TButton in StdCtrls, während TSpeedButton und TBitBtn sich in Buttons befinden. Für eine Stetigkeit und Einfachheit steckt die LCL alle Buttontypen in Buttons, was gelegentlich die Code-Konvertierung ins Leere laufen lassen kann -- es ist also eine gute Idee, diese einzubinden.
242	242
243	243		#### Eigenschaften und Methoden Unterschiede Delphi -\> FPC/LCL
244	244
245	245		- TBitmap verfügt über eine Kanvas in der LCL
246	246
247	247		#### Semantische Unterschiede
248	248
249	249		##### Reihenfolge der Parameter-Auswertung
250	250
251	251		Delphi stellt sicher, dass alle Parameter von links nach rechts ausgewertet werden. FPC macht dies nicht so, sondern wertet alle Parameter so aus, dass der Code optimal schnell läuft.
252	252
253	253		##### Verschachtelte Prozeduren/Funktionen als Prozedurvariablen
254	254
255	255		Delphi übergibt einen Pointer des aufrufenden Prozesses immer an den Stack, dieser entfernt ihn später auch wieder. Das bedeutet, dass es möglich ist, diesen Pointer auch an eine andere Funktion zu übergeben, die dann das rufenden Programm aufruft, wie jede andere Funktion auch. Das geht natürlich nur, solange man die Variablen der Prozedur nicht benötigt.
256	256
257	257		Im Gegensatz dazu übergibt in FPC das rufende Programm den Pointer als ein verstecktes Argument entsprechend der jeweiligen Calling-Konvention. Das bedeutet, dass bei der Übergabe dieses Stacks an ein anderes Programm alle Parameter um eine Position verschoben sind.
258	258
259	259		Kurz gesagt: Vermeiden Sie es, prozedurale Variablen an andere Prozeduren zu übergeben.
260	260
261	261		#### Syntax Unterschiede
262	262
263	263		Bitte fügen Sie weitere Informationen zu diesem Thema hinzu!
264	264
265	265		Wegen der inhärenten Striktheit des FPC sind manche Syntaxänderungen notwendig, obwohl
266	266
267	267		{\$Mode Delphi}
268	268
269	269		mehr Nachlässigkeit als in Delphi erlaubt. Aus diesem Grund ist es in höchstem Maße empfehlenswert, soweit wie möglich den Syntaxregeln von
270	270
271	271		{\$Mode ObjFPC}
272	272
273	273		zu entsprechen, auch wenn die Codebasis weiterhin von Delphi und LCL gemeinsam benutzt wird. Einiges davon entspricht einfach besserer Code-Praxis, anderes liegt an dem gelegentlich inakuraten Delphi-Modus und manchmal funktioniert Code von Delphi mit FPC nicht so wie erwartet, auch wenn er sich kompilieren lässt. Letztlich sollte die folgende Liste als verbindlich betrachtet werden, auch wenn nicht alle Änderungen zwingend notwendig sind:
274	274
275	275		##### Bei der Zuweisung eines Ereignis-Handler-Einstiegspunkts ist diesem ein "@" voranstellen
276	276
277	277		Zum Beispiel, wenn Sie einen Button-Callback manuell zuweisen
278	278
279	279		Delphi
280	280
281	281		FPC
282	282
283	283		begin
284	284
285	285		if not
286	286
287	287		Assigned(MyButton.OnClick)
288	288
289	289		then
290	290
291	291		` MyButton.OnClick:= SomeFunction; `
292	292
293	293		//@ wird nicht benötigt
294	294
295	295		//weiterer Code...
296	296
297	297		end
298	298
299	299		;
300	300
301	301		begin
302	302
303	303		if not
304	304
305	305		Assigned(MyButton.OnClick)
306	306
307	307		then
308	308
309	309		` MyButton.OnClick:= @SomeFunction; `
310	310
311	311		//@ wird benötigt
312	312
313	313		//weiterer Code...
314	314
315	315		end
316	316
317	317		;
318	318
319	319		Hinweis: Bei Fehlern gibt der Compiler einen Typ-Fehler aus (siehe Hinweis im nächsten Abschnitt).
320	320
321	321		##### Wenn Sie eine Prozedurenvariable aufrufen, verwenden Sie diese Syntax: theprocname()
322	322
323	323		In Delphi gibt es keinen Unterschied zwischen dem Ergebnis einer Funktion und einer Variablen, jedoch gibt es in FPC einen. Um eine Funktion aufzurufen, selbst wenn sie keine Parameter hat, müssen Sie eine runde Klammer anhängen. Zum Beispiel -
324	324
325	325		Delphi
326	326
327	327		FPC
328	328
329	329		With
330	330
331	331		(SomeObject)
332	332
333	333		do begin
334	334
335	335		If
336	336
337	337		Assigned(OnMyCallback)
338	338
339	339		then
340	340
341	341		` OnMyCallback; `
342	342
343	343		//runde Klammer nicht benötigt
344	344
345	345		end
346	346
347	347		;
348	348
349	349		With
350	350
351	351		(SomeObject)
352	352
353	353		do begin
354	354
355	355		If
356	356
357	357		Assigned(OnMyCallback)
358	358
359	359		then
360	360
361	361		` OnMyCallback(); `
362	362
363	363		//runde Klammer benötigt
364	364
365	365		end
366	366
367	367		;
368	368
369	369		Hinweis: Falls nicht im Delphi oder TP Modus, und die Klammern werden vergessen, so gibt der Compiler einen Typ-Fehler aus. Zum Beispiel
370	370
371	371		Error: Incompatible types: got "\<procedure variable type of function:SmallInt;Register\>" expected "SmallInt"
372	372
373	373		Diese Fehlermeldung ist hier zwar wenig aussagekräftig aber logisch.
374	374
375	375		##### Beim Zugriff auf den Wert eines Record mittels eines Zeigers muss dieser zuerst dereferenziert werden
376	376
377	377		In Delphi ist es nicht nötig, einen Zeiger auf einen Record zu dereferenzieren, um auf einen Wert darin zuzugreifen. Tatsächlich kann ein Zeiger wie der Record selbst oder wie jedes andere Objekt behandelt werden. In FPC muss er zuerst dereferenziert werden. Beispiel:
378	378
379	379		Delphi
380	380
381	381		FPC
382	382
383	383		Function
384	384
385	385		GetSomeValue(ARecord: PMyRecord)
386	386
387	387
388	388		Integer;
389	389
390	390		begin
391	391
392	392		If
393	393
394	394		Assigned(ARecord)
395	395
396	396		then
397	397
398	398		` Result`
399	399
400	400
401	401		=
402	402
403	403		ARecord.SomeValue
404	404
405	405		else
406	406
407	407		` Result:= `
408	408
409	409		0
410	410
411	411		;
412	412
413	413		end
414	414
415	415		;
416	416
417	417		Function
418	418
419	419		GetSomeValue(ARecord: PMyRecord)
420	420
421	421
422	422		Integer;
423	423
424	424		begin
425	425
426	426		If
427	427
428	428		Assigned(ARecord)
429	429
430	430		then
431	431
432	432		` Result`
433	433
434	434
435	435		=
436	436
437	437		ARecord^.SomeValue
438	438
439	439		else
440	440
441	441		` Result:= `
442	442
443	443		0
444	444
445	445		;
446	446
447	447		end
448	448
449	449		;
450	450
451	451		##### Beim Zugriff auf Zeichen einer indizierten Zeichenketten-Eigenschaft eines Objektes muss dieses in runden Klammern stehen
452	452
453	453		Mit Delphi ist es möglich, eine Eigenschaft genauso zu behandeln wie andere Konstanten oder Variablen, z.B. beim direkten Zugriff auf einzelne Zeichen einer Zeichenkette, wogegen das mit FPC nicht immer möglich ist, speziell bei indizierten Eigenschaften. Stattdessen muss die entsprechende Eigenschaft zur besseren Unterscheidung in runden Klammer stehen. Dies mag zwar nicht immer nötig sein, es ist dennoch eine gute Praxis, das so zu machen. Beispiel:
454	454
455	455		Delphi
456	456
457	457		FPC
458	458
459	459		Type
460	460
461	461		TSomeComponent=
462	462
463	463		class
464	464
465	465		(TComponent)
466	466
467	467		//weiterer Code...
468	468
469	469		Published
470	470
471	471		Property
472	472
473	473		MyString:
474	474
475	475		String
476	476
477	477		index
478	478
479	479		3
480	480
481	481		read
482	482
483	483		GetMyString;
484	484
485	485		//weiterer Code...
486	486
487	487		End
488	488
489	489		;
490	490
491	491		var
492	492
493	493		` MyChar`
494	494
495	495
496	496		char;
497	497
498	498		begin
499	499
500	500		If
501	501
502	502		Length(MyString)\>
503	503
504	504		2
505	505
506	506		then
507	507
508	508		//no parenthesis needed
509	509
510	510		` MyChar:= MyString[`
511	511
512	512		3
513	513
514	514		\];
515	515
516	516		//weiterer Code...
517	517
518	518		end
519	519
520	520		;
521	521
522	522		Type
523	523
524	524		TSomeComponent=
525	525
526	526		class
527	527
528	528		(TComponent)
529	529
530	530		//weiterer Code...
531	531
532	532		Published
533	533
534	534		Property
535	535
536	536		MyString:
537	537
538	538		String
539	539
540	540		index
541	541
542	542		3
543	543
544	544		read
545	545
546	546		GetMyString;
547	547
548	548		//weiterer Code...
549	549
550	550		End
551	551
552	552		;
553	553
554	554		var
555	555
556	556		` MyChar`
557	557
558	558
559	559		char;
560	560
561	561		begin
562	562
563	563		If
564	564
565	565		Length(MyString)\>
566	566
567	567		2
568	568
569	569		then
570	570
571	571		//parenthesis sometimes needed
572	572
573	573		` MyChar:= (MyString)[`
574	574
575	575		3
576	576
577	577		\];
578	578
579	579		//weiterer Code...
580	580
581	581		end
582	582
583	583		;
584	584
585	585		##### Sie müssen eine Typumwandlung von Zeigern in den tatsächlichen Typ vornehmen, wird dieser Zeiger mit einer Variablen oder Funktion dieses Typs benutzt
586	586
587	587		In Delphi haben Sie manchmal einen Null-Zeiger-Variable, die ein Objekt repräsentiert. Auch wenn es nach einer gestellten Situation aussieht, ist es gängige Praxis gerade in großen Komponenten-Paketen, um zu viele Kreisreferenzen zwischen Objekten verschiedener Units zu vermeiden. In Delphi ist es möglich, diesen Null-Zeiger einer Funktion zu schicken, die ein Objekt dieses Typs erwartet, ohne sich mit einer Typenumwandlung beschäftigen zu müssen. In FPC muss eine solche Typenumwandlung stattfinden
588	588
589	589		Zum Beispiel -
590	590
591	591		Delphi
592	592
593	593		FPC
594	594
595	595		Unit 1
596	596
597	597		Type
598	598
599	599		TSomeObject=
600	600
601	601		class
602	602
603	603		(TComponent)
604	604
605	605		//weiterer Code...
606	606
607	607		End
608	608
609	609		;
610	610
611	611		Procedure
612	612
613	613		DoSomething(Value: TSomeObject);
614	614
615	615		Function
616	616
617	617		GetSomeObject: TSomeObject;
618	618
619	619		Unit 2
620	620
621	621		Type
622	622
623	623		TSomeComponent=
624	624
625	625		class
626	626
627	627		(TComponent)
628	628
629	629		//weiterer Code...
630	630
631	631		Published
632	632
633	633		` SomeObject: Pointer`
634	634
635	635		;
636	636
637	637		//weiterer Code...
638	638
639	639		End
640	640
641	641		;
642	642
643	643		Application
644	644
645	645		var
646	646
647	647		` MyComponent: TSomeComponent`
648	648
649	649		;
650	650
651	651		begin
652	652
653	653		` MyComponent.SomeObject`
654	654
655	655
656	656		=
657	657
658	658		GetSomeObject;
659	659
660	660		//weiterer Code...
661	661
662	662		` DoSomething(MyComponent.SomeObject)`
663	663
664	664		;
665	665
666	666		end
667	667
668	668		;
669	669
670	670		Unit 1
671	671
672	672		Type
673	673
674	674		TSomeObject=
675	675
676	676		class
677	677
678	678		(TComponent)
679	679
680	680		//weiterer Code...
681	681
682	682		End
683	683
684	684		;
685	685
686	686		Procedure
687	687
688	688		DoSomething(Value: TSomeObject);
689	689
690	690		Function
691	691
692	692		GetSomeObject: TSomeObject;
693	693
694	694		Unit 2
695	695
696	696		Type
697	697
698	698		TSomeComponent=
699	699
700	700		class
701	701
702	702		(TComponent)
703	703
704	704		//weiterer Code...
705	705
706	706		Published
707	707
708	708		` SomeObject: Pointer`
709	709
710	710		;
711	711
712	712		//weiterer Code...
713	713
714	714		End
715	715
716	716		;
717	717
718	718		Application
719	719
720	720		var
721	721
722	722		` MyComponent: TSomeComponent`
723	723
724	724		;
725	725
726	726		begin
727	727
728	728		` MyComponent.SomeObject`
729	729
730	730
731	731		=
732	732
733	733		Pointer(GetSomeObject);
734	734
735	735		//weiterer Code...
736	736
737	737		` DoSomething(TSomeObject(MyComponent.SomeObject))`
738	738
739	739		;
740	740
741	741		end
742	742
743	743		;
744	744
745	745		#### Ressourcen
746	746
747	747		Delphi Ressourcendateien sind Win32-spezifisch und nicht kompatibel mit Lazarus, so dass Sie sie neu erstellen und mit Lazres kompilieren müssen. Lazres ist im lazarus/tools Unterverzeichnis zu finden. Wenn Sie die Lazarus Quellen heruntergeladen haben, müssen sie es erst kompilieren.
748	748
749	749		- cd lazarus/tools
750	750		- make install
751	751
752	752		Um eine Ressource zu Ihrer Anwendung hinzuzufügen:
753	753
754	754		- lazres myresource.lrs mypix.xpm anotherpix.xpm
755	755		- Fügen Sie die LResources Unit zu Ihrem Uses Abschnitt hinzu
756	756		- Nehmen Sie die von Ihnen erstellte .lrs Datei unter dem initialization Abschnitt auf
757	757
758	758		Beispiel:
759	759
760	760		function
761	761
762	762		TForm1.LoadGlyph(
763	763
764	764		const
765	765
766	766		GlyphName:
767	767
768	768		String
769	769
770	770		): TBitMap;
771	771
772	772		begin
773	773
774	774		` Result:= TPixmap.Create`
775	775
776	776		;
777	777
778	778		` Result.LoadFromLazarusResource(GlyphName)`
779	779
780	780		;
781	781
782	782		end
783	783
784	784		;
785	785
786	786		//weiterer Code...
787	787
788	788		begin
789	789
790	790		` Speedbutton1.glyph:= LoadGlyph('mypix')`
791	791
792	792		;
793	793
794	794		//weiterer Code...
795	795
796	796		end
797	797
798	798		;
799	799
800	800		initialization
801	801
802	802		{\$I unit1.lrs}
803	803
804	804		{\$I myresource.lrs}
805	805
806	806		end
807	807
808	808		.
809	809
810	810		### Eine andere Methode um ein Delphi- oder Kylix-Projekt nach Lazarus zu konvertieren
811	811
812	812		- Benennen Sie alle .dfm oder .xfm Dateien in .lfm um. (Dies funktioniert nicht mit frühen Delphi Versionen da sie keine textbasierte .dfm Datei erstellen.)
813	813		- Benennen Sie die .dpr Datei in .lpr um.
814	814		- Nehmen Sie notwendige Änderungen in der .lpr Datei vor:
815	815
816	816		1. Fügen Sie {\$mode delphi}{\$H+} oder {\$mode objfpc}{H+} Direktiven hinzu.
817	817		2. Fügen Sie 'Interfaces' zum uses Abschnitt hinzu.
818	818		3. Kommentieren Sie die {\$R *.res} Direktive aus oder löschen Sie diese.
819	819
820	820		- Nehmen Sie notwendige Änderungen in allen .pas Unit Dateien vor:
821	821
822	822		1. Fügen sie die {\$mode delphi}{\$H+} oder {\$mode objfpc}{H+} Direktiven hinzu.
823	823		2. Fügen Sie 'LResources', und wenn das Formular Buttons hat, 'Buttons' zum uses Abschnitt hinzu.
824	824		3. Kommentieren Sie die {\$R .dfm} oder {\$R .xfm} Direktive aus oder löschen Sie diese.
825	825		4. Fügen Sie einen 'Initialization' Abschnitt am Ende jeder Datei hinzu, und fügen die {\$I unitname.lrs} Direktive darin hinzu.
826	826
827	827		- Wählen Sie Projekt -\> Neues Projekt von Datei
828	828		- Wählen Sie die .lpr Datei
829	829		- Im 'Erzeuge neues Projekt' Fenster wählen Sie 'Anwendung'
830	830		- Erzeugen Sie das Projekt und nehmen Sie weitere notwendige Korrekturen vor um eine ordentliche Kompilierung zu erhalten, an diesem Punkt wird die .lpi Datei automatisch generiert. Sie erhalten vielleicht 'Error reading Form' Meldungen. Klicken Sie auf 'Continue Loading' falls dem so ist.
831	831		- Speichern Sie alles und Sie haben ein Lazarus Projekt :-)
832	832
833	833		## Hilfe erhalten
834	834
835	835		Wenn Sie während der Konvertierung auf ein Problem stoßen, das Sie gerade nicht lösen können, gibt es eine große Auswahl von Orten, um Hilfe zu erhalten:
836	836
837	837		### Dokumentation
838	838
839	839		Für reine Object Pascal und FPC Probleme, ist der beste Ort zu beginnen die Free Pascal [Dokumentation](http://www.freepascal.org/docs-html/)von Michaël Van Canneyt und Florian Klämpfl.
840	840
841	841		Für mehr Lazarus orientierte Probleme ist die Lazarus Projekt Dokumentation in der [[Main Page/de\|Lazarus-CCR Knowledgebase]] der nächste Ort zum Nachschauen. Schließlich können Sie eine Frage posten in einer der [Mailing Listen](http://www.freepascal.org/maillist.html)für den Free Pascal Compiler oder den [FPC Foren](http://community.freepascal.org:10000/bboard/), wo eine Menge Experten eingeschrieben sind.
842	842
843	843		### Unterstützung durch andere User
844	844
845	845		Mailing-Listen: Man kann eine Frage stellen unter einer der [Mailing-Listen für den Freien Pascal Compiler](http://www.freepascal.org/maillist.html) oder das [FPC/Lazarus forums](http://forum.lazarus.freepascal.org/index.php?action=forum) wo eine Reihe von Experten antworten.
846	846
847	847		Bei Zugriff auf IRC: bei irc.freenode.net: [\#fpc](irc://irc.freenode.net/fpc) for FPC, oder [\#lazarus-ide](irc://irc.freenode.net/lazarus-ide) für Lazarus
848	848
849	849		### Wissensbasis
850	850
851	851		Es gibt einige hervorragende Such- und Wissensdatenbanken im Internet, die ebenfalls eine große Hilfe beim Erlernen neuer Techniken und beim Lösen von Problemen sein können:
852	852
853	853		- Tamarack Associates enthält eine schnelle \[ <http://codenewsfast.com/> search\] Suche speziell für das Borland usenet Archiv.
854	854		- Mer Systems Inc. liefert eine ähnliche Suchseite [engine](http://www.mers.com/searchsite.html).
855	855		- Eine weitere herausragende Informationsquelle sowie eine standortübergreifende [search](http://www.efg2.com/Lab/search.htm)Möglichkeit ist Earl F. Glynn's Computer Lab and Reference [Library](http://www.efg2.com/).
856	856
857	857		## Erstellen eines Packages und Veröffentlichung Ihrer Komponente
858	858
859	859		### Erstellen eines Lazarus Packages für Ihre Komponente(n)
860	860
861	861		Das Erstellen eines Packages macht die Installation Ihres konvertierten Codes viel einfacher - besonders wenn Sie mehr als eine Komponente anbieten. Mattias Gärtner hat eine Übersicht über [[Lazarus Packages/de\|Lazarus Packages]] geschrieben, die Sie lesen sollten bevor Sie mit diesem Prozess beginnen.
862	862
863	863		### Dokumentation
864	864
865	865		Der Zweck dieser Seite und des Wiki-Formats ist, die Generierung einer professionellen Dokumentation zu einem einfachen und schnellen Vorgang zu machen. Das Wiki erlaubt es auch, die Resultate Ihrer Posting unverzüglich zu sehen und erlaubt Ihnen, Änderungen in Echtzeit zu machen.
866	866
867	867		Die Verwendung des Lazarus-CCR Wiki um eine schön anzuschauende Dokumentation zu erstellen ist sehr einfach. Wenn Sie noch nie zuvor die Wiki Sprache verwendet haben, können Sie sich in dem [[Sand Box]] Übungsbereich damit vertraut machen.
868	868
869	869		### Erzeugen einer Code Release Page
870	870
871	871		Die Code Release Page enthält grundlegende Informationen über Ihre Komponente, die ein potenzieller Nutzer wird wissen wollen, wie Lizenz, vorgesehene Plattform, Status (alpha, beta, stable...), wo sie herunterzuladen ist, wer sie geschrieben hat, ob Support verfügbar ist... etc.
872	872
873	873		Die folgende Prozedur lässt Sie eine Code Release Seite mit Ihrem Browser erzeugen:
874	874
875	875		- Gehen Sie zu [[Release new component]]
876	876		- Tippen Sie den Namen Ihrer Komponente in die Textbox und klicken auf Create Article
877	877		- Füllen Sie die Vorlage aus und vergessen Sie nicht zu speichern.
878	878		- Bearbeiten Sie die [[Components and Code examples]] Seite und fügen Sie einen Link zu Ihrer gerade erzeugten Seite hinzu im "Released Components" Abschnitt. Speichern Sie die geänderte Seite.
879	879
880	880		### Einreichen der Komponente
881	881
882	882		Wenn Sie die Rechte eines Lazarus-Release-Verwalters besitzen, laden Sie ihre Komponente in das SourceForge File Release System hoch und fügen Sie sie zur Liste der Release-Packages hinzu. Andernfalls senden Sie die Komponente an einen der Projektadministratoren (Tom Lisjac oder Vincent Snijders) und wir werden sie zum Repository hinzufügen. Bevor wir sie zu SourceForge hochladen, müssen Sie eine Code Release Page erstellen, um Ihre Komponente zu beschreiben. Sie können die [[Release new component]] Seite verwenden, um mit der Erzeugung einer solchen Seite zu beginnen.
883	883
884	884		Falls Sie vorhaben, dass Sie die Entwicklung der Komponente fortsetzen, dann können wir sie auch in SVN einstellen, sodass Sie auch weiterhin Zugriff auf Ihre Komponente haben. Wenn wir es leid sind, immer Ihre Patches zu übermitteln, werden wir Ihnen die Schreibrechte zum SVN einräumen, damit Sie Ihre Patches dann selbst betreuen können. Für Details siehe [[Using the Lazarus-ccr SVN repository]].
885	885
886	886		## Mitwirkende und Änderungen
887	887
888	888		Diese Seite wurde von der epikwiki [Version](http://lazarus-ccr.sourceforge.net/index.php?wiki=CodeConversionGuide) konvertiert.
889	889
890	890		- Anfangsversion von Tom Lisjac und Mattias Gärtner - 9/22/2003 VlxAdmin
891	891		- Moved Getting help from the main page. T. Lisjac - 9/24/2003 VlxAdmin
892	892		- Added documentation templates, procedure and links. 9/25/2003 VlxAdmin
893	893		- LCLLinux wurde in LCLIntf umbenannt, Jesus Reyes, 9/27/2003
894	894		- added more information on Unit changes, [AndrewJohnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 9/27/2003
895	895		- Updated Syntax differences, including some examples, [AndrewJohnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 9/27/2003
896	896		- FPC 1.0.x doesn't support interfaces, Vincent Snijders 9/28/2003
897	897		- Fixed some of the examples per new WikiWord definition, 9/28/2003 VlxAdmin
898	898		- Made code more consistant to remove last accidental Pascal WikiWord definitions, [AndrewJohnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 9/27/2003
899	899		- Use tables for code examples for nice blocks, and easy side by side view of Delphi-\>FPC differences, [AndrewJohnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 10/17/2003
900	900		- Use pascal stylesheet to make example code more readable, [AndrewJohnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 10/18/2003
901	901		- Abschnitt 'Another method to convert a Delphi or Kylix project to Lazarus' hinzugefügt , George Lober, 2/17/2006
902	902
903	903		---
904	904		From the Free Pascal wiki, page "Code Conversion Guide/de", as it stood on 2023-03-15 after a change by Kornelius, 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