如何釋放這樣的指針？

Question

我的自定義控件有父指針，但我不知道如何在析構函數中釋放這些指針。

變量：

{Pointers} 
    Form: TForm; 
    GeneralPointer: Pointer; 
    Frame: ^TImage; 

構造：

constructor TViOS.Create(var ImageOutput: TImage); 
begin 
inherited Create; 

    Form := TForm(GetParentForm(TControl(ImageOutput))); 
    GeneralPointer := Addr(ImageOutput); 
    Frame := GeneralPointer; 
... 

Answer 1

既然你不創建任何在構造函數中的對象，你不需要Free他們在析構函數 - 只需將它們設置爲零。

destructor TViOS.Destroy; 
begin 
    Form := nil; 
    GeneralPointer := nil; 
    Frame := nil; 
end; 

Answer 2

除了別人怎麼說，你的代碼可以使用一些清理：

Form: TForm; 
GeneralPointer: Pointer; 
Frame: TImage; 

。

constructor TViOS.Create(ImageOutput: TImage); 
begin 
    inherited Create; 
    Form := GetParentForm(ImageOutput) as TForm; 
    GeneralPointer := ImageOutput; 
    Frame := ImageOutput; 
    ... 
end;