メモリリークについて (ID:39695)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 http://blog.livedoor.jp/junki560/archives/21305807.html 上記にあるソースを使って、連続して画像ファイルをカウントするプログラムを組みたいのですが、 連続すると、どんどんメモリを食い始めます。 type PColorCount = ^TColorCount; TColorCount = record ColorData: integer; Count: integer; end; ・ ・ ・ ・ if (ls.Count ＜ nnum) or (PColorCount(ls[nnum-1])^.Count ＜ count) then begin New(pcc); pcc^.ColorData := integer(tl[i-1]); pcc^.Count := count; ls.Add(pcc); if ls.Count = nnum+1 then begin Dispose(PColorCount(ls[nnum])); ls.Delete(nnum); end; このあたりで、New(pcc);で確保されたメモリを開放されてないのではないかと思うのですが、どうにも解決できません。 どなたかお解かりになる方いらっしゃいませんか？