名前
題名
▼ 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;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link