この発言は
#01022　Dia             さんの履歴管理クラス
に対するコメントです



  Dia さんこんにちは。

>procedure TPointList.Delete(Index: Integer);
>begin
>  Dispose(Items[Index]);
>  Items[Index] := nil;
>  inherited Delete(Index);
>end;

  Dispose(PPoint(Items[Index]));
  
  とせんとアカンかったきが。
  
  あと、実害は無いと思いますが、Clear を override してるので
Destroy は要らないと思います。D3 では謎ですが。

  また、蛇足ですが AddData は Data: TPoint を引数にする Add 
としちゃうと（コンパイラに「上書きしたぞ」の文句は言われます
けど）ユーザーが Add メソッドを間違って使うことがなくなって
幸せかもです。
  
                                                  本田勝彦

(* サンプル蔵ヘルプ作成 nifty:FDELPHI/LIB/6/114 *)

Original document by 本田勝彦        氏 ID:(VYR01647)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。