「なでしこv1」開発掲示板

【症状】ハッシュでメモリリークの疑い
【再現方法】
ハッシュのアイテム設定をするSetItemメソッドで、既にキーが存在していたときは、元のものを置き換えるが、
置き換えられた元のものをSetItemメソッド内でFreeしていない。
また、ハッシュアイテムクラスでPHiValueを保持しているが、それをデストラクタで解放していない。
これらの動作がこれで正しいのかどうか確かめる。
【要望】
解放出来ているか確認。出来ていなければ解放するようにする。
【バージョン】1.520

PHiValueのハッシュですが、hima_variable_ex.pas で定義されています。
THiHash.SetValue を見ると、キーの再設定の処理が書かれています。

procedure THiHash.SetValue(key: AnsiString; const Value: PHiValue);
var
  i: THiHashItem;
begin
  i := Items[key] as THiHashItem;

  if i = nil then
  begin
    i := THiHashItem.Create;
    i.value := Value;
    i.Key := key;
    Items[key] := i;
  end else
  begin
    hi_var_free(i.value);
    i.value := Value;
  end;

  i.value.Registered := 1;
end;

見たところ、SetItem は、THiHash のスーパークラスで、こちらでは、ハッシュが保持する値までは管理しないようにしています。

どうやら私の早とちりだったみたいですね。
失礼しました。