掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ListView.Item.Dataに登録したTStringListはFreeが必要でしょうか？ (ID：151367)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
サンデープログラマーレベルの者です。 宜しくお願いします。 下のような感じで、ListViewのItemに登録したTStringListは var LstItem : TListItem; LstData : TStringList; begin ListView1.Items.Clear; LstItem := ListView1.Items.Add; //ListViewにItemを追加 LstData := TStringList.Create; //StringListを生成して LstItem.Data := LstData; //ItemのDataに登録 //その他いろいろな処理 end; このようにつくられた TStringListは FormClose または FormCloseQuery あたりで Freeする必要があるのでしょうか？ procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var i : integer; begin for i := 0 to ListView1.Items.Count - 1 do TStringList(ListView1.Items[i].Data).Free; end; 宜しくお願い致します。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.