掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
クラスの開放時にエラーが出る (ID:27187)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
自作クラスを作って、それをObjectListで管理しています。 グローバル変数に、 var Classes: TObjectList;として、 procedure TForm1.FormShow(Sender: TObject); begin Classes := TObjectList.Create; end; という風に宣言しました。 CreateしたものはFreeするべきらしいので、 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Classes.Free; end; と、開放しています。 自作クラスもCreate、Freeで生成、開放しています。 自作クラスをFreeしたときだけ、アプリケーションの終了時に無効なポインタ操作のエラーが出ます。 Classes.Freeを削除した場合はそんなエラーが出ないのですが。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.