Code Conversion Guide/ja: what changed

Revision 2 to 3. 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		-	~~`{$IFDEF FPC}`\~~
129		-	~~` {$MODE DELPHI}`\~~
130		-	~~`{$ENDIF}`~~
	128	+	```
	129	+	{$IFDEF FPC}
	130	+	{$MODE DELPHI}
	131	+	{$ENDIF}
	132	+	```
131	133
132	134		ユニット名の直後におきます。
133	135
134	136		[[Free Pascal\|Free Pascalのモードについて]]、詳しくは、[Free Pascal Documentation](http://www.freepascal.org/docs-html/prog/progap4.html#progse62.html)　をご覧下さい。
135	137
136	138		#### クロスプラットホームで考慮すべきこと
137	139
138	140		- インラインアセンブラは、大抵の場合インテルアーキテクチャに依存しているので問題を引き起こします。ある開発者たちは、Pascalでプロトタイプを書いて、IFDEFでアセンブラで最適化しています。幸いなことにTurboPower社では、そのように多くのコードを書いています。もしこういう場合を見つけたら、IFDEFでPascalに戻すようにしてください。
139	141
140	142		- BIOSの特定のデータエリアを参照しないでください。コードが何をしようとしているのか見つけて、クロスプラットホーム環境ではどのように書いたらいいか、挑戦してみてください。
141	143
142	144		（訳注：おもにシリアル通信やパラレルの制御などで、特定のIOポートやハードウエアを制御していることがあるが、APIやエスケープファンクションに置換することができるが、そのようなものまでクロスプラットホームにできるようにPascalの標準IFが準備されているわけもないので、ある程度OSには依存してしまうだろう。）
143	145
144	146		- 固有のプラットホームのためのIFDEFで囲むことなく、プロセッサの特殊な機能（IntelのTSC命令のような）を使わないでください。そして、別のハードウエアの環境のために、代わりとなる方法を提供できるようにしてください。
145	147
146	148		- OSに依存するコードが必要なばあい、IFDEFを使ってください。下記にそのマクロのリストを示します。
147	149
148	150		#### 便利なコンパイラ変数
149	151
150	152		異なったシステムで異なった動きをするコードを書くために、
151	153
152	154		{\$IFDEF Name}
153	155
154	156		指令を使うことができます。
155	157
156	158		- {\$IfDef LCL}
157	159
158	160		この値はLCLパッケージを使っているときに定義されています。LCLとDelphiの両方で動くコードを書くときに便利です。
159	161
160	162		- {\$IfDef LCLGtk}
161	163
162	164		,
163	165
164	166		{\$IfDef LCLWin32}
165	167
166	168		,
167	169
168	170		{\$IfDef LCLQt}
169	171
170	172		, ...
171	173
172	174		これらの値は、LCLが特定のwidgetsetで使われているときに定義されています。 LCLが特定のプラットホームで動くときのコードを書くときに便利です。
173	175
174	176		- {\$IfDef FPC}
175	177
176	178		この値はFPCコンパイラ定数を使っているときに定義されています。FPCとDelphiの両方で動くコードを書くときに便利です。
177	179
178	180		- {\$IfDef Unix}
179	181
180	182		,
181	183
182	184		{\$IfDef Win32}
183	185
184	186		, ...
185	187
186	188		FPCによって現在のターゲットOSのために定義されています。Delphi（やKylix）は"Linux", "Win32" and "MSWindows"を定義します。[[Free Pascal\|Free Pascalはさらに]]多くのプラットホームで動作し、一般的に使われることが推奨されています。たとえば、LazarusのプラットホームであるLinux、FreeBSD,NetBSD、OpenBSDでは"Unix"が定義されています。同じソースコードが、KylixでもLazarusでも動くようにするためには、
187	189
188		-	~~`{$IfDef Linux}`\~~
189		-	~~` {$Define Unix}`\~~
190		-	~~`{$EndIf}`~~
	190	+	```
	191	+	{$IfDef Linux}
	192	+	{$Define Unix}
	193	+	{$EndIf}
	194	+	```
191	195
192	196		などとしてください。
193	197
194	198		もっと詳しいことは、こちらをみてください。[Free Pascal Documentation](http://www.freepascal.org/docs-html/prog/prog.html#QQ2-23-21).
195	199
196	200		#### 失った識別子を見つける
197	201
198	202		Delphi VCLと、LCLを比較すると構成の方法に違いがあります。もし、"not found"というコンパイラエラーが、主要なクラスや識別子で出たときは、多くの場合異なったユニットにあります。
199	203
200	204		完全なクロスリファレンスは、lazarus/docs/xml か LCLのサブディレクトリをgrepしてください。
201	205
202	206		たとえば、一般的によく使われるTButtonのDelphiのコードは、Lazarusではbuttons.ppというユニットにあるので、コンパイル時にエラーになります。次のコマンドは、正しいユニットをLazarusのソースディレクトリから高速に見つけ出します。
203	207
204		-	~~` grep -in ' tbutton =' lcl/*`~~
	208	+	```
	209	+	grep -in ' tbutton =' lcl/*
	210	+	```
205	211
206	212		#### LazarusとDelphiの主要なユニットの違い
207	213
208	214		このトピックに書き加えてください。
209	215
210	216		- Windows-\>Interfaces, LCLIntf, LCLType, LCLProc, VCLGlobals, ...)に置き換えます。
211	217
212	218		LCLはWindowsに限ったものではないので、DelphiのWin32APIに直接アクセスするためのWindowsユニットは、インターフェースに抽象化されてLCLIntfユニットからアクセスするようになります。覚えておいて頂きたいことは、Lazarusはwin32をエミュレートするのではないので、多くの関数が欠落していたり、Win32と同等な働きをしない関数があります。これらの関数はDelphiとの互換性だけのためにあり、とにかく移植するだけのためにあります。LCLは多くの型を利用し、LCLTypeやVCLGlobalsを必要とします。LCLProcは、FreeThenNilのようなDelphi5以降で導入された便利ないくつかの関数や、コントロールのばめに余分なアンパーサンドを取り除くDeleteAmpersandsのようなものを含みます。 Interfacesユニットは、適切なwidgetsetを初期化するための.lprファイルをインクルードするために必要です。
213	219
214	220		- Messages-\>LMessagesに置き換えます。
215	221
216	222		Delphiでは、TControlメッセージ(Win32イベントコールバックでは、WM_CALLBACK形式になっています。）とそれらに関連するメッセージはMessageユニットにあります。 LCLでは、これらの型やメッセージ、構造体などの定義は、LMessagesユニットにあります。大抵の場合、WM_MOUSEENTER は LM_MOUSEENTER　に、TWMMouse は TLMMouseに、といった具合に、WMをLMに変更されています。
217	223
218	224		- Graphics, Controls-\>GraphTypes, GraphMath, Graphics, Controls　に置き換えます。
219	225
220	226		（グラフィックスのための）いくつかの事柄を簡素にしたり、ユニット間の複雑さの連鎖を断ち切るため、GraphTypeと呼ばれる共有ユニットで、いくつかの型が抽象化されました。それは、Delphiの中では、GraphicsやControlで定義されていたものを含んでいます。たとえば、PanelのbvNoneなどの定義などで、そのため、GraphTypeはインクルードしなくてはなりません。また、Delphiと互換性はありませんが、GraphMathという便利な機能をもつユニットがあります。それは、小数点の位置をもてるTFloatPointや、ベジェ曲線、直線、円弧などを扱えます。また、TPointやTRectの演算子オーバーロードをおこなっていますので、点の位置を加算するのに　Point1 := Point2 + Point3　としたり、２個の矩形を比較するのに、　if (rect1 = rect2) then ... と書くことができるようになります。
221	227
222	228		- Mask-\>MaskEdit　に置き換えます。
223	229
224	230		TMaskEditのためのユニットは、多くのバージョンのDelphiのようにMaskという安直なものではなく、よりよい名前を考えると、\[MaskEdit\\|\] と呼んだほうがよいでしょう。
225	231
226	232		- StdCtrls-\>StdCtrls,Buttons　に置き換えます。
227	233
228	234		多くのバージョンのDelphiでは、TButtonはStdCtrlsにありますが、TSpeedButtonやTBitBtnはButtonsユニットにあります。LCLでは、一貫性と簡潔性から、全てのボタンの定義はButtonでおこなっています。これは、includeするのにいいアイディアだと思いますよ。
229	235
230	236		#### Delphiのプロパティとメソッドの違い　-\> FPC/LCL
231	237
232	238		- LCLではTBitmapにCanvasがあります。
233	239
234	240		#### 文法上の違い
235	241
236	242		このトピックに気づいたものを加えてください
237	243
238	244		{\$Mode Delphi}
239	245
240	246		で、Delphiと互換性をもてるよう、いくつかの文法上の許容をしても、FPCの文法上の厳密さから、プログラムの構文の変更が必要になることがあります。その理由は、FPCでは、DelphiとLCLの両方で共有されるソースであっても、なるべくなら、
241	247
242	248		{\$Mode ObjFPC}
243	249
244	250		を用いるよう、高く推奨されているからです。
245	251
246	252		これは、単により良いコーディングの習慣をつけるということと、Delphiモードは必ずしも（文法が）正確ではなく、または、いくつかの例では、Delphi互換コードはコンパイルされてもFPCほど機能的でないためです。このため、すべてを厳密に要求するわけではありませんが、次のことは考慮してください。
247	253
248	254		イベントハンドラ関数を登録するときは、関数の前に"@"をつけてください。
249	255
250	256		（訳注：@は、後に続く変数や関数のアドレスを明示的に示します。関数の前につけることで、関数のエントリアドレスを得ることができ、それをイベントハンドラを示す変数（＝ポインタ）に代入するコードを書きます。関数の呼び出しと、参照を明確に区別することができます。）
251	257
252	258		たとえば、ボタンのイベントを手動で登録するには、次のようにおこないます。
253	259
254	260		Delphi
255	261
256	262		FPC
257	263
258	264		begin
259	265
260	266		if not
261	267
262	268		Assigned(MyButton.OnClick)
263	269
264	270		then
265	271
266	272		` MyButton.OnClick:= SomeFunction; `
267	273
268	274		//@ not required
269	275
270	276		//more code...
271	277
272	278		end
273	279
274	280		;
275	281
276	282		begin
277	283
278	284		if not
279	285
280	286		Assigned(MyButton.OnClick)
281	287
282	288		then
283	289
284	290		` MyButton.OnClick:= @SomeFunction; `
285	291
286	292		//@ IS required
287	293
288	294		//more code...
289	295
290	296		end
291	297
292	298		;
293	299
294	300		イベント変数で、関数をコールするには、次のような文で書きます。： theprocname()
295	301
296	302		Delphiの文法では、イベント変数に関して、関数の結果を得るのと、変数を区別する方法がありません。しかし、FPCではそれができます。そのために、関数として呼び出す場合は、パラメータが無くても、括弧をつけてください。たとえば -
297	303
298	304		Delphi
299	305
300	306		FPC
301	307
302	308		With
303	309
304	310		(SomeObject)
305	311
306	312		do begin
307	313
308	314		If
309	315
310	316		Assigned(OnMyCallback)
311	317
312	318		then
313	319
314	320		` OnMyCallback; `
315	321
316	322		//parenthesis not required
317	323
318	324		end
319	325
320	326		;
321	327
322	328		With
323	329
324	330		(SomeObject)
325	331
326	332		do begin
327	333
328	334		If
329	335
330	336		Assigned(OnMyCallback)
331	337
332	338		then
333	339
334	340		` OnMyCallback(); `
335	341
336	342		//parenthesis required
337	343
338	344		end
339	345
340	346		;
341	347
342	348		When accessing values in a pointer to a record you must dereference first
343	349
344	350		レコードポインタで、値をアクセスするときは、（^）をつけて逆参照しなくてはなりません。
345	351
346	352		Delphiの文法では、ポインタの逆参照記号は必ずしも必要とされません。実際に、ポインタはレコードやオブジェクトそのものとして扱うことができます。FPCでは、逆参照記号を付ける必要があります。たとえば、
347	353
348	354		Delphi
349	355
350	356		FPC
351	357
352	358		Function
353	359
354	360		GetSomeValue(ARecord: PMyRecord)
355	361
356	362
357	363		Integer;
358	364
359	365		begin
360	366
361	367		If
362	368
363	369		Assigned(ARecord)
364	370
365	371		then
366	372
367	373		` Result`
368	374
369	375
370	376		=
371	377
372	378		ARecord.SomeValue
373	379
374	380		else
375	381
376	382		` Result:= `
377	383
378	384		0
379	385
380	386		;
381	387
382	388		end
383	389
384	390		;
385	391
386	392		Function
387	393
388	394		GetSomeValue(ARecord: PMyRecord)
389	395
390	396
391	397		Integer;
392	398
393	399		begin
394	400
395	401		If
396	402
397	403		Assigned(ARecord)
398	404
399	405		then
400	406
401	407		` Result`
402	408
403	409
404	410		=
405	411
406	412		ARecord^.SomeValue
407	413
408	414		else
409	415
410	416		` Result:= `
411	417
412	418		0
413	419
414	420		;
415	421
416	422		end
417	423
418	424		;
419	425
420	426		When accessing chars of an indexed string Property of an object, it must be enclosed in parentheses\
421	427		オブジェクトの配列化された文字列プロパティのキャラクタにアクセスするときは、括弧でくくります。
422	428
423	429		Delphiでは、文字列のプロパティの個々のキャラクタにアクセスするときでも、constやvarのように直接扱うことができますが、FPCでは常時そのことが可能ではありません。特に、配列化されたプロパティでは不可能です。この場合、区別するために、括弧でくくることで可能です。この方法はいつでも正しいとは限りませんが、とにかく、良い習慣だといえます。
424	430
425	431		たとえば
426	432
427	433		Delphi
428	434
429	435		FPC
430	436
431	437		Type
432	438
433	439		TSomeComponent=
434	440
435	441		class
436	442
437	443		(TComponent)
438	444
439	445		//More code...
440	446
441	447		Published
442	448
443	449		Property
444	450
445	451		MyString:
446	452
447	453		String
448	454
449	455		index
450	456
451	457		3
452	458
453	459		read
454	460
455	461		GetMyString;
456	462
457	463		//More code...
458	464
459	465		End
460	466
461	467		;
462	468
463	469		var
464	470
465	471		` MyChar`
466	472
467	473
468	474		char;
469	475
470	476		begin
471	477
472	478		If
473	479
474	480		Length(MyString)\>
475	481
476	482		2
477	483
478	484		then
479	485
480	486		//no parenthesis needed
481	487
482	488		` MyChar:= MyString[`
483	489
484	490		3
485	491
486	492		\];
487	493
488	494		//More code...
489	495
490	496		end
491	497
492	498		;
493	499
494	500		Type
495	501
496	502		TSomeComponent=
497	503
498	504		class
499	505
500	506		(TComponent)
501	507
502	508		//More code...
503	509
504	510		Published
505	511
506	512		Property
507	513
508	514		MyString:
509	515
510	516		String
511	517
512	518		index
513	519
514	520		3
515	521
516	522		read
517	523
518	524		GetMyString;
519	525
520	526		//More code...
521	527
522	528		End
523	529
524	530		;
525	531
526	532		var
527	533
528	534		` MyChar`
529	535
530	536
531	537		char;
532	538
533	539		begin
534	540
535	541		If
536	542
537	543		Length(MyString)\>
538	544
539	545		2
540	546
541	547		then
542	548
543	549		//parenthesis sometimes needed
544	550
545	551		` MyChar:= (MyString)[`
546	552
547	553		3
548	554
549	555		\];
550	556
551	557		//More code...
552	558
553	559		end
554	560
555	561		;
556	562
557	563		変数や関数のポインタは型キャストをおこなって、実際の型として扱う必要があります。
558	564
559	565		時々Delphiでは、型なしポインタ変数としてオブジェクトを示すことがあります。複雑な状況では、これは、特に大きなコンポーネントパックなどで、多くのユニット間の循環参照を解消するために、一般的な手法です。Delphiでは、オブジェクトを期待している関数にこの型なしポインタを型キャストなしに送ることができますが、FPCでは型キャストが必要です。
560	566
561	567		たとえば、 -
562	568
563	569		Delphi
564	570
565	571		FPC
566	572
567	573		Unit 1
568	574
569	575		Type
570	576
571	577		TSomeObject=
572	578
573	579		class
574	580
575	581		(TComponent)
576	582
577	583		//More code...
578	584
579	585		End
580	586
581	587		;
582	588
583	589		Procedure
584	590
585	591		DoSomething(Value: TSomeObject);
586	592
587	593		Function
588	594
589	595		GetSomeObject: TSomeObject;
590	596
591	597		Unit 2
592	598
593	599		Type
594	600
595	601		TSomeComponent=
596	602
597	603		class
598	604
599	605		(TComponent)
600	606
601	607		//More code...
602	608
603	609		Published
604	610
605	611		` SomeObject: Pointer`
606	612
607	613		;
608	614
609	615		//More code...
610	616
611	617		End
612	618
613	619		;
614	620
615	621		Application
616	622
617	623		var
618	624
619	625		` MyComponent: TSomeComponent`
620	626
621	627		;
622	628
623	629		begin
624	630
625	631		` MyComponent.SomeObject`
626	632
627	633
628	634		=
629	635
630	636		GetSomeObject;
631	637
632	638		//More code...
633	639
634	640		` DoSomething(MyComponent.SomeObject)`
635	641
636	642		;
637	643
638	644		end
639	645
640	646		;
641	647
642	648		Unit 1
643	649
644	650		Type
645	651
646	652		TSomeObject=
647	653
648	654		class
649	655
650	656		(TComponent)
651	657
652	658		//More code...
653	659
654	660		End
655	661
656	662		;
657	663
658	664		Procedure
659	665
660	666		DoSomething(Value: TSomeObject);
661	667
662	668		Function
663	669
664	670		GetSomeObject: TSomeObject;
665	671
666	672		Unit 2
667	673
668	674		Type
669	675
670	676		TSomeComponent=
671	677
672	678		class
673	679
674	680		(TComponent)
675	681
676	682		//More code...
677	683
678	684		Published
679	685
680	686		` SomeObject: Pointer`
681	687
682	688		;
683	689
684	690		//More code...
685	691
686	692		End
687	693
688	694		;
689	695
690	696		Application
691	697
692	698		var
693	699
694	700		` MyComponent: TSomeComponent`
695	701
696	702		;
697	703
698	704		begin
699	705
700	706		` MyComponent.SomeObject`
701	707
702	708
703	709		=
704	710
705	711		Pointer(GetSomeObject);
706	712
707	713		//More code...
708	714
709	715		` DoSomething(TSomeObject(MyComponent.SomeObject))`
710	716
711	717		;
712	718
713	719		end
714	720
715	721		;
716	722
717	723		#### リソース
718	724
719	725		Delphiのリソースファイルはwin32形式であり、Lazarusのものと互換性がありません。ですから、Lazarusで使うためには、再生成してコンパイルします。Lazresというツールが、lazarus/toolsサブディレクトリにあります。もし、Lazarusのソースをダウンロードしているなら、まず、次のようにコンパイルします。
720	726
721	727		- cd lazarus/tools
722	728		- make install
723	729
724	730		リソースをアプリケーションに追加するために：
725	731
726	732		- lazres myresource.lrs mypix.xpm anotherpix.xpm
727	733		- Uses節に LResources ユニットを追加してください。
728	734		- .lrs ファイルをinitializationブロックにインクルードするようにしてください。
729	735
730	736		例:
731	737
732	738		function
733	739
734	740		TForm1.LoadGlyph(
735	741
736	742		const
737	743
738	744		GlyphName:
739	745
740	746		String
741	747
742	748		): TBitMap;
743	749
744	750		begin
745	751
746	752		` Result:= TPixmap.Create`
747	753
748	754		;
749	755
750	756		` Result.LoadFromLazarusResource(GlyphName)`
751	757
752	758		;
753	759
754	760		end
755	761
756	762		;
757	763
758	764		//More code...
759	765
760	766		begin
761	767
762	768		` Speedbutton1.glyph:= LoadGlyph('mypix')`
763	769
764	770		;
765	771
766	772		//More code...
767	773
768	774		end
769	775
770	776		;
771	777
772	778		initialization
773	779
774	780		{\$I unit1.lrs}
775	781
776	782		{\$I myresource.lrs}
777	783
778	784		end
779	785
780	786		.
781	787
782	788		### DelphiやKylixプロジェクトをLazarusに変換する他の方法
783	789
784	790		- .dfmや.xfmファイルを.lfmファイルにリネームするかコピーします。(初期のバージョンのDelphiはテキストベースの.dfmファイルを生成しません。変換ユーティリティが \binフォルダにあれば、まず.dfmファイルを変換します。)
785	791		- .dprファイルを　.lprファイルにリネームするかコピーします。
786	792		- .lprファイルに適切な変更をおこないます。
787	793
788	794		1. {\$mode delphi}{\$H+} か、 {\$mode objfpc}{H+} 指令を加えます。
789	795		2. 'Interfaces'をuses節に加えます。
790	796		3. {\$R *.res}や相当する指令をコメントアウトするか、削除します。
791	797
792	798		- すべての.pasファイルに必要な変更をおこないます：
793	799
794	800		1. {\$mode delphi}{\$H+} か、 {\$mode objfpc}{H+} 指令を加えます。
795	801		2. uses節に'LResources'を加え、もしフォームにボタンがあれば、さらに'Buttons'も加えます。
796	802		3. {\$R .dfm}や{\$R .xfm}指令をコメントアウトするか、削除します。
797	803		4. 'Initialization'セクションをユニットの最後に加え、その中に{\$I unitname.lrs}指令を入れます。
798	804
799	805		- \[プロジェクト\]-\>\[ファイルから新規プロジェクト\]を選択します。
800	806		- .lpr ファイルを選択します。
801	807		- "新規プロジェクトを作成"ウインドウで、'アプリケーション'を選択します。
802	808		- \[プロジェクトの構築\]を実行して、更に、適切なコンパイルのために必要な訂正をおこないます。この時点で、.lpiファイルが自動的に生成されます。
803	809
804	810		'Error reading Form'メッセージを受け取るかもしれませんが、続行する場合は'読み込みを続行'を押し続けてください。
805	811
806	812		- 全て保存すると、Lazarusプロジェクトが完成します。:-)
807	813
808	814		## ヘルプを見つける
809	815
810	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/)の検索を可能にしています。
811	817
812	818		## コンポーネントをパッケージしてリリースする
813	819
814	820		### コンポーネントのLazarusパッケージを作る
815	821
816	822		あなたが変換したコードの中に特に一つ以上のコンポーネントがある場合、、パッケージを作って配布すると、他の人がインストールするのが簡単になります。 Mattias Gärtner が概要を [[Lazarus Packages\|Lazarus Packagesで]]書いていますので、パッケージを作成する場合は、一度事前に読んで下さい。
817	823
818	824		### 文書
819	825
820	826		このサイトの目的と、Wiki形式で運用している理由は、より簡単に、速く、本格的なドキュメントを作成することです。Wikiは、あなたが投稿したり、修正した結果をすぐに反映します。
821	827
822	828		Lazarus-CCRのwikiを使って、見栄えの良い文書を作ることは簡単です。wikiのマークアップを使ったことがなければ、[[Sand Box]] で試しに色々と使ってみて下さい。
823	829
824	830		### コードリリースページを作る
825	831
826	832		コードリリースページは、あなたの製作したコンポーネントのライセンス、想定している動作プラットホーム、状態（α版、β版、安定版）、どこでダウンロードできるか、著者、サポート情報....などの生きた情報を、ダウンロードしようとしている人たちに提供します。
827	833
828	834		ブラウザであなたの作ったコンポーネントのコードリリースページを作る方法を紹介しましょう。
829	835
830	836		- [[Release new component\|Release new componentへ]]行きます。
831	837		- あなたの生成したコンポーネント名を入力し、Create Articleを押します。
832	838		- テンプレートに入力し、保存してください。
833	839		- [[Components and Code examples\|Components and Code examplesを]]編集し、"Released Components"セクションに新しく作ったページのリンクを加えてください。そして保存します。
834	840
835	841		### コンポーネントをサブミットする
836	842
837	843		もし、プロジェクトのリリース技術者であれば、あなたのコンポーネントをSourceForgeファイルリリースシステムにアップロードして、リリースパッケージのリストに含めてください。そうでなければ、我々プロジェクト管理者(Tom Lisjac or Vincent Snijders)に送っていただければ、リポジトリに加えます。
838	844
839	845		もし、コンポーネントの開発を続ける必要性があるなら、CVSにおきます。そうすれば、それにアクセスし続けることができます。（訳注：現在はCVSではなくsub versionで管理している）
840	846
841	847		## Contributors and Changes
842	848
843	849		This page has been converted from the epikwiki [version](http://lazarus-ccr.sourceforge.net/index.php?wiki=CodeConversionGuide).
844	850
845	851		- Initial version by Tom Lisjac and Mattias Gärtner - 9/22/2003 VlxAdmin
846	852		- Moved Getting help from the main page. T. Lisjac - 9/24/2003 VlxAdmin
847	853		- Added documentation templates, procedure and links. 9/25/2003 VlxAdmin
848	854		- LCLLinux was renamed to LCLIntf, Jesus Reyes, 9/27/2003
849	855		- added more information on Unit changes, [AndrewJohnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 9/27/2003
850	856		- Updated Syntax differences, including some examples, [AndrewJohnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 9/27/2003
851	857		- FPC 1.0.x doesn't support interfaces, Vincent Snijders 9/28/2003
852	858		- Fixed some of the examples per new WikiWord definition, 9/28/2003 VlxAdmin
853	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
854	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
855	861		- Use pascal stylesheet to make example code more readable, [AndrewJohnson](http://lazarus-ccr.sourceforge.net/index.php?wiki=AndrewJohnson) 10/18/2003
856	862		- Added 'Another method to convert a Delphi or Kylix project to Lazarus' section , George Lober, 2/17/2006
857	863
858	864		---
859	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