喫茶XRAY [Mr.XRAY掲示板]

また追加しました．

[ 汎用ポインタ型の Objects プロパティと Data プロパティ ]
http://mrxray.on.coocan.jp/Delphi/Others/Pointer.htm#10
[ tag プロパティに数値やレコード型のデータを関連付けする ]

参考までに昔あった質問の一部．
もちろん例によってコードの提示はなしです．
「メモリを解放しているのにメモリリークが発生します」
と言う内容の質問です (でした)．

おそらく以下のようなことをやっていたのでははないかと推測しました．
本人からの give がなかたので何ともですが・・・
このコードは Button2.Tag に代入されているアドレスだけのメモリは解放されます．

procedure TForm1.Button1Click(Sender: TObject);
var
  LpValue : PDouble;
begin
  New(LpValue);
  LpValue^ := 123.56;
  Button1.Tag := NativeInt(LpValue);

  New(LpValue);
  LpValue^ := 5000.12;
  Button2.Tag := NativeInt(LpValue);

  Dispose(LpValue);
end;