掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TListの入れ子構造について (ID:20552)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
あっ、List1.Free を忘れました。 // 全項目を削除する procedure TForm1.FormDestroy(Sender: TObject); var i: integer; pd: PMyData; begin for i = 0 to List1.Count-1 do begin pd := PMyData(List1[i]); pd^.xnewnum.Free; Dispose(pd); end; List1.Free; // これね！ end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.