delphi - そのようなポインタを解放する方法は？

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をnilに設定するだけです。

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;