Code Conversion Guide/ja: what changed

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

Old	New		Line
1	1		このページでは、すでにDelphiやKylixで書いたコードを [[Free Pascal\|Free PascalコンパイラやLazarus]] IDEで動くようにするための方法を説明します。 LazarusとFree PascalコンパイラはDelphiやKylixと同じ方向性をもっていますが、LazarusやFree Pascalは、それらのクローンではありません。沢山のライブラリコールや使い方に違いがあります。そして、いくつかの場面において、FPCは拡張されており、また、より正しい文法を要求することがあります。
2	2
3	3		[[Lazarus For Delphi Users/ja]] を見て、機能的な違いを確認してください。
4	4
5	5		このガイドの目的は、Delphiの既存のコードをLazarusに変換するときに、よく出会う特徴的な違いを、きちんと文書化することです。
6	6
7	7		この文書はWikiの知識ベースに置かれていますので、だれでも問題に出会ったときに他の人にも知らせることができるよう、拡張できます。
8	8
9	9		## 変換時のコンポーネントやライブラリの選択
10	10
11	11		### 変換するコードの場所を見つける
12	12
13	13		ネット上には、変換すればFPCやLazarusで使える、沢山の利用可能なコードがあります。たとえば、このページ[[Page Of Code Sites\|Page Of Code Sitesがスタートとなるでしょう]]。他のもっといいコードサイトのURLなどを知っていれば書き加えてください。
14	14
15	15		TurboPowerソフトウエア社は、最近彼らの商用製品をMPLのライセンスの元でリリースしました。使えるパッケージは、http://sourceforge.net/users/tpsfadmin/ ここ\]にあります。作業が重複するのを避けるため、変換されたパッケージは[[Components and Code examples\|Components and Code examplesページにあります]]。もし、あなたが変換したパッケージや、変換中のものがあれば、[[Current conversion projects]] ページに書き加えてください。
16	16
17	17		### ライセンス
18	18
19	19		Licenses for existing code range from freeware/public domain to restrictive versions that prohibit modification, re-distribution and commercial use. Before converting any package, it's a good idea to examine its licensing and make sure it's going to be compatible with Lazarus and the Free Pascal Compiler. License selection is especially important with components since dropping one on a form can impose an unwanted or incompatible license on an entire application.
20	20
21	21		When converting components, please respect the wishes of the original author and retain all copyright and licensing headers along with email addresses and url's. It's courteous and often useful to inform the author that their component is being converted... especially if the component is under a restrictive license. New interest in an old or forgotten component can sometimes inspire authors to revise their original and overly restrictive licensing.
22	22
23	23		In general, Public Domain (freeware), and the LGPL/MPL are the the most flexible for distributing components. For more information, the [Open Source Definition](http://www.opensource.org/docs/definition.php) is a good place to start. There are also several comparisons available to help clarify how the various types of licenses work and what impact they'll have on code they're linked to. Search for "open source license comparison"
24	24
25	25		### 依存関係
26	26
27	27		変換をはじめる前のもう一つのステップは、それらのコードが、利用できないか、簡単には変換できそうもない他のパッケージと深い依存関係をもっていないことを確認することです。いくつかのフリーウエアはいまや使われないような利用できないパッケージや、あるいは適切でないライセンスをもつパッケージと結合しているか、拡張されていることがあります。
28	28
29	29		### コンパイラの問題
30	30
31	31		下記を見てください:
32	32
33	33		- [Known problems](http://www.freepascal.org/probs.html)
34	34		- [Unfixed bugs](http://www.freepascal.org/bugs/db.php3?statusfield=Unfixed)
35	35
36	36		### プラットホームとOSの問題
37	37
38	38		LazarusとFree Pascal Compilerはクロスプラットホームであり、クロスプラットホームアーキテクチャ開発ツールです。DelphiのほとんどのコードはWin32でのインテルCPUで実行されるように設計されていることと比較してみてください。もし、あなたのコンポーネントが多くのWin32に特化したコードを使っていれば、すこしでもプラットホームに依存しないようにしてみることをお勧めします。しかし、多くのWindowsに特化したコードをつかっているからといって、LCLへの挑戦をためらわないで下さい。本当にLCLはすばらしい機能を提供しています。
39	39
40	40		## 変換をおこなう
41	41
42	42		### 変換するプロジェクトのためのLazarusの環境を設定する
43	43
44	44		#### テストプロジェクトを作成する
45	45
46	46		- サブディレクトリ(例: convertdir)に、変換されるほうのコードを置く。
47	47		- Lazarusを起動する
48	48		- File-\>Save All でthe convertdirのサブディレクトリに保存する。プロジェクト名に意味の名前を付ける。デフォルトユニットの名前をつけるのは好きにしてよい。
49	49		- converdirで、変換するメインとなるユニットを開く。
50	50		- それをプロジェクトに加える。: Project-\>Add Active Unit
51	51		- Run Tools-\>Quick Syntax Check をするか、 Run Build All で開始してみる。
52	52
53	53		#### 最初に目を向ける事柄
54	54
55	55		- 1.0.x系のコンパイラでは、ファイル名は大文字小文字を判別します。もし、このバージョンで作業していたら、全ファイル名を小文字にしてください。そうしなかったら、 "File not found"　エラーになります。
56	56
57	57		#### Lazarus上でのDelphi VCL, Kylix CLXのソース
58	58
59	59		DelphiやKylixのソースを変換しているとき、特定の機能の関数がなにをやっているか、宣言を探すことは、よく役に立ちます。LazarusのIDEは、DelphiやKylixのソースコードを解析できます。これをするためには、検索パスとコンパイラ設定をきちんとおこなわなくてはなりません。これらは、Environment-\>CodeTools Defines Editor-\>Insert Templateで簡単におこなうことができます。
60	60
61	61		### 変換に関する問題と解決方法
62	62
63	63		#### LazarusでのDelphi / Kylix ファイルとの対応
64	64
65	65		\| \| \| \|
66	66		\|----\|----\|----\|
67	67		\| Delphi / Kylix \| Lazarus \| Description \|
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 file Form data file Compiled unit file Project file Resource file Project options file Lazarus resource file Lazarus project information file FPC unit description file \|
69	69
70	70		#### Delphi プロジェクト/フォーム/ユニットを Lazarus　に変換する
71	71
72	72		.dprファイルを.lprへcopyするか、名前を変更します。
73	73
74	74		{\$R *.res}
75	75
76	76		ディレクティブをコメントアウトするか、削除して、
77	77
78	78		{\$mode delphi}{\$H+}
79	79
80	80		か
81	81
82	82		{\$mode objfpc}{\$H+}
83	83
84	84		ディレクティブを.lprファイルへ加えます。
85	85
86	86		Toolsメニューの中には、変換に便利な"Convert Delphi Project to Lazarus Project"という項目があり、lazarus IDEは変換を手助けします。この項目を実行すると、.dprファイルを.lprに変換するかどうか聞きます。そして、.lpiファイルを作って、全てのユニットを変換します。多くのすでにあるDelphiフォームは、Lazarusが .dfmを.lfmフォームに変換します。これは、Toolsメニューの"Convert DFM file to LFM"という項目で出来ます。ファイルダイアログが立ち上がり、dfmファイルを選択すると、自動で変換をおこないます。
87	87
88	88		もしフォームであろうがなかろうが、全ユニットを変換する場合、Lazarusの"Convert Delphi unit to Lazarus unit"では次のようにおこないます。
89	89
90	90		1. includeのファイル名とuses部分の大文字小文字を修正します。
91	91
92	92		2. .dfm ファイルを .lfm ファイルに変換します。(currently without content check, just format)
93	93
94	94		3. 空の.lrs ファイルを作成します。 (中身は後で生成されます。)
95	95
96	96		4. {\$mode delphi}
97	97
98	98		ディレクティブを追加します。
99	99
100	100		5. windowsユニットをLCLIntfに置き換えます。
101	101
102	102		6. 必要であれば LResources ユニットを付け加えます。(もし unit.lrs が使われている場合
103	103		uses LResources
104	104
105	105		をimplementation 部分に入れます)
106	106
107	107		7. variants ユニットは削除します。
108	108
109	109		8. {\$R *.dfm}
110	110
111	111		ディレクティブは削除します。
112	112
113	113		9. initialization 部分に
114	114		{\$i unit.lrs}
115	115
116	116		ディレクティブを加えます。
117	117
118	118		この方法でほとんどのユニットをDelphiフォーマットをLazarusフォーマットへ迅速に変換できます。この方法は、正当性のチェックや、自動的な文法の変換をするものではありませんが、いろいろなウイザードがそのようなことや変換などををするので、文法上の変換したり、他のユニット名を変換したり、コンポーネントやコントロールの違いで、dfm/pasファイルを手で変更する必要はありません。
119	119
120	120		#### 正しいコンパイラモードを選択する
121	121
122	122		[[Free Pascal\|Free Pascalコンパイラには]]５つの異なったパスカルモードがあります。たとえば、TPはTurbo Pascal互換モードですが、これをつかってTurbo Pascalのユニットをコンパイルできます。また、DELPHI互換モードがあり、既存のDELPHIコードの変換を簡単にします。Lazarusにおいては、DELPHIモードよりもOBJFPCモードをお勧めします。このモードはほとんどDELPHIのモードと似ていますが、DELPHIの文法よりもあいまいさがすくなくなっています。下記に重要な点を示します。
123	123
124	124		モードはコマンドラインか、もしくは、ソースコードの最初に指定します。もしソースを変更する必要が無いなら、コマンドラインを使うほうが良いですが、他の諸々を指定しなくてはならない場合は、使わないほうが良いでしょう。
125	125
126	126		ほとんどのDelphiのユニットは下記のようにすることで[[Free Pascal\|Free Pascalでコンパイルできます]]。
127	127
128		-	~~```~~
	128	+	```text
129	129		{$IFDEF FPC}
130	130		{$MODE DELPHI}
131	131		{$ENDIF}
132	132		```
133	133
134	134		ユニット名の直後におきます。
135	135
136	136		[[Free Pascal\|Free Pascalのモードについて]]、詳しくは、[Free Pascal Documentation](http://www.freepascal.org/docs-html/prog/progap4.html#progse62.html)　をご覧下さい。
137	137
138	138		#### クロスプラットホームで考慮すべきこと
139	139
140	140		- インラインアセンブラは、大抵の場合インテルアーキテクチャに依存しているので問題を引き起こします。ある開発者たちは、Pascalでプロトタイプを書いて、IFDEFでアセンブラで最適化しています。幸いなことにTurboPower社では、そのように多くのコードを書いています。もしこういう場合を見つけたら、IFDEFでPascalに戻すようにしてください。
141	141
142	142		- BIOSの特定のデータエリアを参照しないでください。コードが何をしようとしているのか見つけて、クロスプラットホーム環境ではどのように書いたらいいか、挑戦してみてください。
143	143
144	144		（訳注：おもにシリアル通信やパラレルの制御などで、特定のIOポートやハードウエアを制御していることがあるが、APIやエスケープファンクションに置換することができるが、そのようなものまでクロスプラットホームにできるようにPascalの標準IFが準備されているわけもないので、ある程度OSには依存してしまうだろう。）
145	145
146	146		- 固有のプラットホームのためのIFDEFで囲むことなく、プロセッサの特殊な機能（IntelのTSC命令のような）を使わないでください。そして、別のハードウエアの環境のために、代わりとなる方法を提供できるようにしてください。
147	147
148	148		- OSに依存するコードが必要なばあい、IFDEFを使ってください。下記にそのマクロのリストを示します。
149	149
150	150		#### 便利なコンパイラ変数
151	151
152	152		異なったシステムで異なった動きをするコードを書くために、
153	153
154	154		{\$IFDEF Name}
155	155
156	156		指令を使うことができます。
157	157
158	158		- {\$IfDef LCL}
159	159
160	160		この値はLCLパッケージを使っているときに定義されています。LCLとDelphiの両方で動くコードを書くときに便利です。
161	161
162	162		- {\$IfDef LCLGtk}
163	163
164	164		,
165	165
166	166		{\$IfDef LCLWin32}
167	167
168	168		,
169	169
170	170		{\$IfDef LCLQt}
171	171
172	172		, ...
173	173
174	174		これらの値は、LCLが特定のwidgetsetで使われているときに定義されています。 LCLが特定のプラットホームで動くときのコードを書くときに便利です。
175	175
176	176		- {\$IfDef FPC}
177	177
178	178		この値はFPCコンパイラ定数を使っているときに定義されています。FPCとDelphiの両方で動くコードを書くときに便利です。
179	179
180	180		- {\$IfDef Unix}
181	181
182	182		,
183	183
184	184		{\$IfDef Win32}
185	185
186	186		, ...
187	187
188	188		FPCによって現在のターゲットOSのために定義されています。Delphi（やKylix）は"Linux", "Win32" and "MSWindows"を定義します。[[Free Pascal\|Free Pascalはさらに]]多くのプラットホームで動作し、一般的に使われることが推奨されています。たとえば、LazarusのプラットホームであるLinux、FreeBSD,NetBSD、OpenBSDでは"Unix"が定義されています。同じソースコードが、KylixでもLazarusでも動くようにするためには、
189	189
190		-	~~```~~
	190	+	```text
191	191		{$IfDef Linux}
192	192		{$Define Unix}
193	193		{$EndIf}
194	194		```
195	195
196	196		などとしてください。
197	197
198	198		もっと詳しいことは、こちらをみてください。[Free Pascal Documentation](http://www.freepascal.org/docs-html/prog/prog.html#QQ2-23-21).
199	199
200	200		#### 失った識別子を見つける
201	201
202	202		Delphi VCLと、LCLを比較すると構成の方法に違いがあります。もし、"not found"というコンパイラエラーが、主要なクラスや識別子で出たときは、多くの場合異なったユニットにあります。
203	203
204	204		完全なクロスリファレンスは、lazarus/docs/xml か LCLのサブディレクトリをgrepしてください。
205	205
206	206		たとえば、一般的によく使われるTButtonのDelphiのコードは、Lazarusではbuttons.ppというユニットにあるので、コンパイル時にエラーになります。次のコマンドは、正しいユニットをLazarusのソースディレクトリから高速に見つけ出します。
207	207
208		-	~~```~~
	208	+	```text
209	209		grep -in ' tbutton =' lcl/*
210	210		```
211	211
212	212		#### LazarusとDelphiの主要なユニットの違い
213	213
214	214		このトピックに書き加えてください。
215	215
216	216		- Windows-\>Interfaces, LCLIntf, LCLType, LCLProc, VCLGlobals, ...)に置き換えます。
217	217
218	218		LCLはWindowsに限ったものではないので、DelphiのWin32APIに直接アクセスするためのWindowsユニットは、インターフェースに抽象化されてLCLIntfユニットからアクセスするようになります。覚えておいて頂きたいことは、Lazarusはwin32をエミュレートするのではないので、多くの関数が欠落していたり、Win32と同等な働きをしない関数があります。これらの関数はDelphiとの互換性だけのためにあり、とにかく移植するだけのためにあります。LCLは多くの型を利用し、LCLTypeやVCLGlobalsを必要とします。LCLProcは、FreeThenNilのようなDelphi5以降で導入された便利ないくつかの関数や、コントロールのばめに余分なアンパーサンドを取り除くDeleteAmpersandsのようなものを含みます。 Interfacesユニットは、適切なwidgetsetを初期化するための.lprファイルをインクルードするために必要です。
219	219
220	220		- Messages-\>LMessagesに置き換えます。
221	221
222	222		Delphiでは、TControlメッセージ(Win32イベントコールバックでは、WM_CALLBACK形式になっています。）とそれらに関連するメッセージはMessageユニットにあります。 LCLでは、これらの型やメッセージ、構造体などの定義は、LMessagesユニットにあります。大抵の場合、WM_MOUSEENTER は LM_MOUSEENTER　に、TWMMouse は TLMMouseに、といった具合に、WMをLMに変更されています。
223	223
224	224		- Graphics, Controls-\>GraphTypes, GraphMath, Graphics, Controls　に置き換えます。
225	225
226	226		（グラフィックスのための）いくつかの事柄を簡素にしたり、ユニット間の複雑さの連鎖を断ち切るため、GraphTypeと呼ばれる共有ユニットで、いくつかの型が抽象化されました。それは、Delphiの中では、GraphicsやControlで定義されていたものを含んでいます。たとえば、PanelのbvNoneなどの定義などで、そのため、GraphTypeはインクルードしなくてはなりません。また、Delphiと互換性はありませんが、GraphMathという便利な機能をもつユニットがあります。それは、小数点の位置をもてるTFloatPointや、ベジェ曲線、直線、円弧などを扱えます。また、TPointやTRectの演算子オーバーロードをおこなっていますので、点の位置を加算するのに　Point1 := Point2 + Point3　としたり、２個の矩形を比較するのに、　if (rect1 = rect2) then ... と書くことができるようになります。
227	227
228	228		- Mask-\>MaskEdit　に置き換えます。
229	229
230	230		TMaskEditのためのユニットは、多くのバージョンのDelphiのようにMaskという安直なものではなく、よりよい名前を考えると、\[MaskEdit\\|\] と呼んだほうがよいでしょう。
231	231
232	232		- StdCtrls-\>StdCtrls,Buttons　に置き換えます。
233	233
234	234		多くのバージョンのDelphiでは、TButtonはStdCtrlsにありますが、TSpeedButtonやTBitBtnはButtonsユニットにあります。LCLでは、一貫性と簡潔性から、全てのボタンの定義はButtonでおこなっています。これは、includeするのにいいアイディアだと思いますよ。
235	235
236	236		#### Delphiのプロパティとメソッドの違い　-\> FPC/LCL
237	237
238	238		- LCLではTBitmapにCanvasがあります。
239	239
240	240		#### 文法上の違い
241	241
242	242		このトピックに気づいたものを加えてください
243	243
244	244		{\$Mode Delphi}
245	245
246	246		で、Delphiと互換性をもてるよう、いくつかの文法上の許容をしても、FPCの文法上の厳密さから、プログラムの構文の変更が必要になることがあります。その理由は、FPCでは、DelphiとLCLの両方で共有されるソースであっても、なるべくなら、
247	247
248	248		{\$Mode ObjFPC}
249	249
250	250		を用いるよう、高く推奨されているからです。
251	251
252	252		これは、単により良いコーディングの習慣をつけるということと、Delphiモードは必ずしも（文法が）正確ではなく、または、いくつかの例では、Delphi互換コードはコンパイルされてもFPCほど機能的でないためです。このため、すべてを厳密に要求するわけではありませんが、次のことは考慮してください。
253	253
254	254		イベントハンドラ関数を登録するときは、関数の前に"@"をつけてください。
255	255
256	256		（訳注：@は、後に続く変数や関数のアドレスを明示的に示します。関数の前につけることで、関数のエントリアドレスを得ることができ、それをイベントハンドラを示す変数（＝ポインタ）に代入するコードを書きます。関数の呼び出しと、参照を明確に区別することができます。）
257	257
258	258		たとえば、ボタンのイベントを手動で登録するには、次のようにおこないます。
259	259
260	260		Delphi
261	261
262	262		FPC
263	263
264	264		begin
265	265
266	266		if not
267	267
268	268		Assigned(MyButton.OnClick)
269	269
270	270		then
271	271
272	272		` MyButton.OnClick:= SomeFunction; `
273	273
274	274		//@ not required
275	275
276	276		//more code...
277	277
278	278		end
279	279
280	280		;
281	281
282	282		begin
283	283
284	284		if not
285	285
286	286		Assigned(MyButton.OnClick)
287	287
288	288		then
289	289
290	290		` MyButton.OnClick:= @SomeFunction; `
291	291
292	292		//@ IS required
293	293
294	294		//more code...
295	295
296	296		end
297	297
298	298		;
299	299
300	300		イベント変数で、関数をコールするには、次のような文で書きます。： theprocname()
301	301
302	302		Delphiの文法では、イベント変数に関して、関数の結果を得るのと、変数を区別する方法がありません。しかし、FPCではそれができます。そのために、関数として呼び出す場合は、パラメータが無くても、括弧をつけてください。たとえば -
303	303
304	304		Delphi
305	305
306	306		FPC
307	307
308	308		With
309	309
310	310		(SomeObject)
311	311
312	312		do begin
313	313
314	314		If
315	315
316	316		Assigned(OnMyCallback)
317	317
318	318		then
319	319
320	320		` OnMyCallback; `
321	321
322	322		//parenthesis not required
323	323
324	324		end
325	325
326	326		;
327	327
328	328		With
329	329
330	330		(SomeObject)
331	331
332	332		do begin
333	333
334	334		If
335	335
336	336		Assigned(OnMyCallback)
337	337
338	338		then
339	339
340	340		` OnMyCallback(); `
341	341
342	342		//parenthesis required
343	343
344	344		end
345	345
346	346		;
347	347
348	348		When accessing values in a pointer to a record you must dereference first
349	349
350	350		レコードポインタで、値をアクセスするときは、（^）をつけて逆参照しなくてはなりません。
351	351
352	352		Delphiの文法では、ポインタの逆参照記号は必ずしも必要とされません。実際に、ポインタはレコードやオブジェクトそのものとして扱うことができます。FPCでは、逆参照記号を付ける必要があります。たとえば、
353	353
354	354		Delphi
355	355
356	356		FPC
357	357
358	358		Function
359	359
360	360		GetSomeValue(ARecord: PMyRecord)
361	361
362	362
363	363		Integer;
364	364
365	365		begin
366	366
367	367		If
368	368
369	369		Assigned(ARecord)
370	370
371	371		then
372	372
373	373		` Result`
374	374
375	375
376	376		=
377	377
378	378		ARecord.SomeValue
379	379
380	380		else
381	381
382	382		` Result:= `
383	383
384	384		0
385	385
386	386		;
387	387
388	388		end
389	389
390	390		;
391	391
392	392		Function
393	393
394	394		GetSomeValue(ARecord: PMyRecord)
395	395
396	396
397	397		Integer;
398	398
399	399		begin
400	400
401	401		If
402	402
403	403		Assigned(ARecord)
404	404
405	405		then
406	406
407	407		` Result`
408	408
409	409
410	410		=
411	411
412	412		ARecord^.SomeValue
413	413
414	414		else
415	415
416	416		` Result:= `
417	417
418	418		0
419	419
420	420		;
421	421
422	422		end
423	423
424	424		;
425	425
426	426		When accessing chars of an indexed string Property of an object, it must be enclosed in parentheses\
427	427		オブジェクトの配列化された文字列プロパティのキャラクタにアクセスするときは、括弧でくくります。
428	428
429	429		Delphiでは、文字列のプロパティの個々のキャラクタにアクセスするときでも、constやvarのように直接扱うことができますが、FPCでは常時そのことが可能ではありません。特に、配列化されたプロパティでは不可能です。この場合、区別するために、括弧でくくることで可能です。この方法はいつでも正しいとは限りませんが、とにかく、良い習慣だといえます。
430	430
431	431		たとえば
432	432
433	433		Delphi
434	434
435	435		FPC
436	436
437	437		Type
438	438
439	439		TSomeComponent=
440	440
441	441		class
442	442
443	443		(TComponent)
444	444
445	445		//More code...
446	446
447	447		Published
448	448
449	449		Property
450	450
451	451		MyString:
452	452
453	453		String
454	454
455	455		index
456	456
457	457		3
458	458
459	459		read
460	460
461	461		GetMyString;
462	462
463	463		//More code...
464	464
465	465		End
466	466
467	467		;
468	468
469	469		var
470	470
471	471		` MyChar`
472	472
473	473
474	474		char;
475	475
476	476		begin
477	477
478	478		If
479	479
480	480		Length(MyString)\>
481	481
482	482		2
483	483
484	484		then
485	485
486	486		//no parenthesis needed
487	487
488	488		` MyChar:= MyString[`
489	489
490	490		3
491	491
492	492		\];
493	493
494	494		//More code...
495	495
496	496		end
497	497
498	498		;
499	499
500	500		Type
501	501
502	502		TSomeComponent=
503	503
504	504		class
505	505
506	506		(TComponent)
507	507
508	508		//More code...
509	509
510	510		Published
511	511
512	512		Property
513	513
514	514		MyString:
515	515
516	516		String
517	517
518	518		index
519	519
520	520		3
521	521
522	522		read
523	523
524	524		GetMyString;
525	525
526	526		//More code...
527	527
528	528		End
529	529
530	530		;
531	531
532	532		var
533	533
534	534		` MyChar`
535	535
536	536
537	537		char;
538	538
539	539		begin
540	540
541	541		If
542	542
543	543		Length(MyString)\>
544	544
545	545		2
546	546
547	547		then
548	548
549	549		//parenthesis sometimes needed
550	550
551	551		` MyChar:= (MyString)[`
552	552
553	553		3
554	554
555	555		\];
556	556
557	557		//More code...
558	558
559	559		end
560	560
561	561		;
562	562
563	563		変数や関数のポインタは型キャストをおこなって、実際の型として扱う必要があります。
564	564
565	565		時々Delphiでは、型なしポインタ変数としてオブジェクトを示すことがあります。複雑な状況では、これは、特に大きなコンポーネントパックなどで、多くのユニット間の循環参照を解消するために、一般的な手法です。Delphiでは、オブジェクトを期待している関数にこの型なしポインタを型キャストなしに送ることができますが、FPCでは型キャストが必要です。
566	566
567	567		たとえば、 -
568	568
569	569		Delphi
570	570
571	571		FPC
572	572
573	573		Unit 1
574	574
575	575		Type
576	576
577	577		TSomeObject=
578	578
579	579		class
580	580
581	581		(TComponent)
582	582
583	583		//More code...
584	584
585	585		End
586	586
587	587		;
588	588
589	589		Procedure
590	590
591	591		DoSomething(Value: TSomeObject);
592	592
593	593		Function
594	594
595	595		GetSomeObject: TSomeObject;
596	596
597	597		Unit 2
598	598
599	599		Type
600	600
601	601		TSomeComponent=
602	602
603	603		class
604	604
605	605		(TComponent)
606	606
607	607		//More code...
608	608
609	609		Published
610	610
611	611		` SomeObject: Pointer`
612	612
613	613		;
614	614
615	615		//More code...
616	616
617	617		End
618	618
619	619		;
620	620
621	621		Application
622	622
623	623		var
624	624
625	625		` MyComponent: TSomeComponent`
626	626
627	627		;
628	628
629	629		begin
630	630
631	631		` MyComponent.SomeObject`
632	632
633	633
634	634		=
635	635
636	636		GetSomeObject;
637	637
638	638		//More code...
639	639
640	640		` DoSomething(MyComponent.SomeObject)`
641	641
642	642		;
643	643
644	644		end
645	645
646	646		;
647	647
648	648		Unit 1
649	649
650	650		Type
651	651
652	652		TSomeObject=
653	653
654	654		class
655	655
656	656		(TComponent)
657	657
658	658		//More code...
659	659
660	660		End
661	661
662	662		;
663	663
664	664		Procedure
665	665
666	666		DoSomething(Value: TSomeObject);
667	667
668	668		Function
669	669
670	670		GetSomeObject: TSomeObject;
671	671
672	672		Unit 2
673	673
674	674		Type
675	675
676	676		TSomeComponent=
677	677
678	678		class
679	679
680	680		(TComponent)
681	681
682	682		//More code...
683	683
684	684		Published
685	685
686	686		` SomeObject: Pointer`
687	687
688	688		;
689	689
690	690		//More code...
691	691
692	692		End
693	693
694	694		;
695	695
696	696		Application
697	697
698	698		var
699	699
700	700		` MyComponent: TSomeComponent`
701	701
702	702		;
703	703
704	704		begin
705	705
706	706		` MyComponent.SomeObject`
707	707
708	708
709	709		=
710	710
711	711		Pointer(GetSomeObject);
712	712
713	713		//More code...
714	714
715	715		` DoSomething(TSomeObject(MyComponent.SomeObject))`
716	716
717	717		;
718	718
719	719		end
720	720
721	721		;
722	722
723	723		#### リソース
724	724
725	725		Delphiのリソースファイルはwin32形式であり、Lazarusのものと互換性がありません。ですから、Lazarusで使うためには、再生成してコンパイルします。Lazresというツールが、lazarus/toolsサブディレクトリにあります。もし、Lazarusのソースをダウンロードしているなら、まず、次のようにコンパイルします。
726	726
727	727		- cd lazarus/tools
728	728		- make install
729	729
730	730		リソースをアプリケーションに追加するために：
731	731
732	732		- lazres myresource.lrs mypix.xpm anotherpix.xpm
733	733		- Uses節に LResources ユニットを追加してください。
734	734		- .lrs ファイルをinitializationブロックにインクルードするようにしてください。
735	735
736	736		例:
737	737
738	738		function
739	739
740	740		TForm1.LoadGlyph(
741	741
742	742		const
743	743
744	744		GlyphName:
745	745
746	746		String
747	747
748	748		): TBitMap;
749	749
750	750		begin
751	751
752	752		` Result:= TPixmap.Create`
753	753
754	754		;
755	755
756	756		` Result.LoadFromLazarusResource(GlyphName)`
757	757
758	758		;
759	759
760	760		end
761	761
762	762		;
763	763
764	764		//More code...
765	765
766	766		begin
767	767
768	768		` Speedbutton1.glyph:= LoadGlyph('mypix')`
769	769
770	770		;
771	771
772	772		//More code...
773	773
774	774		end
775	775
776	776		;
777	777
778	778		initialization
779	779
780	780		{\$I unit1.lrs}
781	781
782	782		{\$I myresource.lrs}
783	783
784	784		end
785	785
786	786		.
787	787
788	788		### DelphiやKylixプロジェクトをLazarusに変換する他の方法
789	789
790	790		- .dfmや.xfmファイルを.lfmファイルにリネームするかコピーします。(初期のバージョンのDelphiはテキストベースの.dfmファイルを生成しません。変換ユーティリティが \binフォルダにあれば、まず.dfmファイルを変換します。)
791	791		- .dprファイルを　.lprファイルにリネームするかコピーします。
792	792		- .lprファイルに適切な変更をおこないます。
793	793
794	794		1. {\$mode delphi}{\$H+} か、 {\$mode objfpc}{H+} 指令を加えます。
795	795		2. 'Interfaces'をuses節に加えます。
796	796		3. {\$R *.res}や相当する指令をコメントアウトするか、削除します。
797	797
798	798		- すべての.pasファイルに必要な変更をおこないます：
799	799
800	800		1. {\$mode delphi}{\$H+} か、 {\$mode objfpc}{H+} 指令を加えます。
801	801		2. uses節に'LResources'を加え、もしフォームにボタンがあれば、さらに'Buttons'も加えます。
802	802		3. {\$R .dfm}や{\$R .xfm}指令をコメントアウトするか、削除します。
803	803		4. 'Initialization'セクションをユニットの最後に加え、その中に{\$I unitname.lrs}指令を入れます。
804	804
805	805		- \[プロジェクト\]-\>\[ファイルから新規プロジェクト\]を選択します。
806	806		- .lpr ファイルを選択します。
807	807		- "新規プロジェクトを作成"ウインドウで、'アプリケーション'を選択します。
808	808		- \[プロジェクトの構築\]を実行して、更に、適切なコンパイルのために必要な訂正をおこないます。この時点で、.lpiファイルが自動的に生成されます。
809	809
810	810		'Error reading Form'メッセージを受け取るかもしれませんが、続行する場合は'読み込みを続行'を押し続けてください。
811	811
812	812		- 全て保存すると、Lazarusプロジェクトが完成します。:-)
813	813
814	814		## ヘルプを見つける
815	815
816	816		もし、Lazarusへの移植中に解決できない問題にぶつかったとき、助けとなるWEBが沢山あります。純粋に、Object PascalとFPCの問題である場合、FreePascalの文書から調べてみるのが良いでしょう。[Documentation](http://www.freepascal.org/docs-html/) by Michaël Van Canneyt and Florian Klämpfl. さらに、Lazarusが中心の問題であれば、Lazarusに関する文書をLazarus-CCR 知識ベース[[Main Page\|Main Pageで]]、探すのがよいでしょう。最後に、質問を　[mailing lists for the Free Pascal Compiler](http://www.freepascal.org/maillist.html) や、[FPC forums](http://community.freepascal.org:10000/bboard/)へ投稿することができます。沢山のエキスパートがこれらのメーリングリストに登録しています。他の検索やオンラインの知識データベースなども、問題解決やあたしい技術を学ぶ上で大変役に立ちます。 Tamarack Associates \[ <http://codenewsfast.com/> search\] では、Borland usenet archivesに特化した高速な検索エンジンを使うことができます。operates a Mer Systems Inc. [engine](http://www.mers.com/searchsite.html)では、同じような検索を提供しています。もうひとつ、外部の情報源として、[search](http://www.efg2.com/Lab/search.htm)　では、Earl F. Glynn's Computer Lab and Reference [Library](http://www.efg2.com/)の検索を可能にしています。
817	817
818	818		## コンポーネントをパッケージしてリリースする
819	819
820	820		### コンポーネントのLazarusパッケージを作る
821	821
822	822		あなたが変換したコードの中に特に一つ以上のコンポーネントがある場合、、パッケージを作って配布すると、他の人がインストールするのが簡単になります。 Mattias Gärtner が概要を [[Lazarus Packages\|Lazarus Packagesで]]書いていますので、パッケージを作成する場合は、一度事前に読んで下さい。
823	823
824	824		### 文書
825	825
826	826		このサイトの目的と、Wiki形式で運用している理由は、より簡単に、速く、本格的なドキュメントを作成することです。Wikiは、あなたが投稿したり、修正した結果をすぐに反映します。
827	827
828	828		Lazarus-CCRのwikiを使って、見栄えの良い文書を作ることは簡単です。wikiのマークアップを使ったことがなければ、[[Sand Box]] で試しに色々と使ってみて下さい。
829	829
830	830		### コードリリースページを作る
831	831
832	832		コードリリースページは、あなたの製作したコンポーネントのライセンス、想定している動作プラットホーム、状態（α版、β版、安定版）、どこでダウンロードできるか、著者、サポート情報....などの生きた情報を、ダウンロードしようとしている人たちに提供します。
833	833
834	834		ブラウザであなたの作ったコンポーネントのコードリリースページを作る方法を紹介しましょう。
835	835
836	836		- [[Release new component\|Release new componentへ]]行きます。
837	837		- あなたの生成したコンポーネント名を入力し、Create Articleを押します。
838	838		- テンプレートに入力し、保存してください。
839	839		- [[Components and Code examples\|Components and Code examplesを]]編集し、"Released Components"セクションに新しく作ったページのリンクを加えてください。そして保存します。
840	840
841	841		### コンポーネントをサブミットする
842	842
843	843		もし、プロジェクトのリリース技術者であれば、あなたのコンポーネントをSourceForgeファイルリリースシステムにアップロードして、リリースパッケージのリストに含めてください。そうでなければ、我々プロジェクト管理者(Tom Lisjac or Vincent Snijders)に送っていただければ、リポジトリに加えます。
844	844
845	845		もし、コンポーネントの開発を続ける必要性があるなら、CVSにおきます。そうすれば、それにアクセスし続けることができます。（訳注：現在はCVSではなくsub versionで管理している）
846	846
847	847		## Contributors and Changes
848	848
849	849		This page has been converted from the epikwiki [version](http://lazarus-ccr.sourceforge.net/index.php?wiki=CodeConversionGuide).
850	850
851	851		- Initial version by Tom Lisjac and Mattias Gärtner - 9/22/2003 VlxAdmin
852	852		- Moved Getting help from the main page. T. Lisjac - 9/24/2003 VlxAdmin
853	853		- Added documentation templates, procedure and links. 9/25/2003 VlxAdmin
854	854		- LCLLinux was renamed to LCLIntf, Jesus Reyes, 9/27/2003
855	855		- added more information on Unit changes, [AndrewJohnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 9/27/2003
856	856		- Updated Syntax differences, including some examples, [AndrewJohnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 9/27/2003
857	857		- FPC 1.0.x doesn't support interfaces, Vincent Snijders 9/28/2003
858	858		- Fixed some of the examples per new WikiWord definition, 9/28/2003 VlxAdmin
859	859		- Made code more consistant to remove last accidental Pascal WikiWord definitions, [AndrewJohnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 9/27/2003
860	860		- 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
861	861		- Use pascal stylesheet to make example code more readable, [AndrewJohnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 10/18/2003
862	862		- Added 'Another method to convert a Delphi or Kylix project to Lazarus' section , George Lober, 2/17/2006
863	863
864	864		---
865	865		From the Free Pascal wiki, page "Code Conversion Guide/ja", as it stood on 2016-12-22 after a change by E-ric, 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