我最近剛學會一點OOP,我想寫一個unit繼承TShape,但是我在主Form動態Create我的Unit會出錯,不知道是不是我的觀念有問題


[code delphi]
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;
type
TSnakeZ = class(TShape)
constructor Create;
destructor Destroy; reintroduce;
end;
implementation
constructor TSnakeZ.Create;
begin
end;
destructor TSnakeZ.Destroy;
begin
end;
end.
[/code]

這是 C Builder 的寫法, 供您參考

http://delphi.ktop.com.tw/board.php?cid=168&fid=913&tid=95610

Delphi 寫法稍異, 您可參考其他人開發的 Component 的 .pas 參考.

[code delphi]
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;
type
TSnakeZ = class(TShape)
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;

implementation

constructor TSnakeZ.Create(AOwner: TComponent);
begin
inherited;
// 在此加入額外的初始化程式碼
end;

destructor TSnakeZ.Destroy;
begin
// 在此加入額外的資源釋放程式碼
inherited;
end;

end.
[/code]

要繼承一個類別之前，請先看看要繼承的類別定義
constructor 跟 destructor 尤其重要

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/

編輯記錄