掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コンストラクタやデストラクタの動作を希望どうりにさせるには？ (ID：31692)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
簡単なことなんですから、テストすりゃいいじゃないですか。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type A = class(TPersistent) public constructor Create; end; B = class(A) public constructor Create; end; C = class(B) public constructor Create(S: Integer); end; TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private 宣言 } public { Public 宣言 } end; var Form1: TForm1; implementation {$R *.dfm} { A } constructor A.Create; begin ShowMessage('A'); end; { B } constructor B.Create; begin // inherited Create; ShowMessage('B'); end; { C } constructor C.Create(S: Integer); begin // inherited Create; // A.Create; // B.Create; ShowMessage('C'); end; procedure TForm1.FormCreate(Sender: TObject); var C1:C; begin C1:=C.Create(1); C1.Free; end; end.
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.