継承
1-6 ：プロジェクトソース

　CatWalk .dpr のソース　　 　 　　　/ 1-1　　 1-2　　 1-3　　 1-4　　 1-5　　 1-7　　 1-8　　 1-9

プログラムのソースはこのようになります。
プログラムのソースを見るにはツールバーの　プロジェクト＞ソース表示　を選択して下さい。




program　CatWalk;

uses

　Forms,
　MainUnit in 'MainUnit.pas' {MainForm},
　Unit1 in 'Unit1.pas' {CatA},　　　// 継承が正しく行われていることを確認
　Unit2 in 'Unit2.pas' {CatB},　　　//　　　　　〃
　Unit3 in 'Unit3.pas' {CatC};　　　//　　　　　〃

　{$R *.res}

begin
　Application.Initialize;
　Application.CreateForm(TMainForm, MainForm);
　Application.CreateForm(TCatA, CatA);　　　　　//以下の３行を追加
　Application.CreateForm(TCatB, CatB);
　Application.CreateForm(TCatC, CatC);
　Application.Run;
end.

トップに戻る　　/　 戻る　　/　 次へ