TListに格納したメモリの開放について
解決TListを継承し、recordをリスト管理するクラスを作成しています。
RecList (TListを継承して作成したクラスTRecListのインスタンス) で
『値 := RecList.Items[Index].レコードのメンバ変数;』といった感じにrecordにアクセスしたいのです。
しかし、Itemsの戻り値をポインタで無く、TRecord型にしているため、
TRecListに格納しているrecordポインタ型のメモリを開放出来ません。
文書だけでは分かりづらいと思いますので、
以下に簡易版のソースを書きますので、どなたかよい対応方法をご教授下さい。
---------------------------------------------------------------
PRecord = ^TRecord;
TRecord = record
メンバ省略
end;
type
TRecList = Class(TList)
public
property SetRec();
property Items[Index : Integer] : TRecord read Get; default;
procedure Delete(Index : Integer);
end;
function SetRec(); //リスト化するレコードのポインタを格納
var
Rec : PRecord;
begin
new(Rec);
Rec^.メンバ := 格納値;
TRecList(Self).Add(Rec);
end;
function TRecList.Get(Index : Integer) : TRecord; //Indexのレコードを返す
Result := PRecord(inherited Get(Index))^;
end;
procedure Delete(Index : Integer);
begin
Dispose(PRecord(TRecList(Self).Items[Index]));
↑
Itemsの戻り値はTRecord型なのでDispose出来ない！
end;
質問者です、追記します。
Itemsの戻り値はポインタのまま利用し、
新規プロパティで、ItemsのポインタをTRecordにキャストし、
メンバ変数値を取り出すという方法がベストでしょうか？
変数の前に@をつけます
るるとん＠Ｋさん、返信ありがとうございます。
@は試してみたのですが、「変数が必要です」とエラーが出ます。
Dispose(@(TRecList(Self).Items[Index]));
TRecList(Self).Delete[i]
でした
ミス
[i]ではなく(i)です
ミス
[i]ではなく(i)です
type
TRecList = class(TList)
protected
function GetItem(Index: Integer): PRecord;
public
property Items[Index: Integer]: PRecord read GetItem; default;
end;
function TRecList.GetItem(Index: Integer): PRecord;
begin
Result := PRecord(Get(Index));
end;
> property Items[Index : Integer] : TRecord read Get; default;
これを
property Items[Index : Integer] : PRecord read Get; default;
にすべきです。Get() との整合にもなりますし。
> 『値 := RecList.Items[Index].レコードのメンバ変数;』といった感じにrecordにアクセスしたいのです。
のようにアクセスもできるのでは？
jokさんのメソッドを再定義する方法の方がきれいですね。
ごみレスを残してすみませんでした。<(_ _)>
ところで、jokさんが答えておられることを言い換えると、
var
Rec: PRecord;
begin
New(Rec);
Rec^.メンバ := 格納値;
の部分ですが、
var
Rec: PRecord;
begin
New(Rec);
Rec.メンバ := 格納値;
のように書けます。
つまり、逆参照演算子は省略できます。
再定義したItemsプロパティを使用する場合についても同様です。
「ふぐちゃん」さん、「jok」さん
ありがとうございます。
recordのポインタ型では、逆参照なしでもメンバ値を参照できるのですね。
ItemsのGetメソッドの戻り値をPointerからPRecordにすることで、
Deleteメソッド内で、PRecordのメモリの開放も出来ました。
ありがとうございました。
| ツイート |  |