掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
クラス作成と使用方法について (ID：16001)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
お世話になります。 現在、テスト的にクラスを作ってみました。 こんな感じです。 ---------------------------------------- type TTestClass = class(TObject) private public constructor Create(AOwner: TObject); destructor Destroy; override; end; TForm1 = class(TForm) <<中略>> end; var Form1: TForm1; TestClass: TTestClass; constructor TTestClass.Create(AOwner: TObject); begin inherited Create; end; destructor TTestClass.Destroy; begin inherited Destroy; end; ---------------------------------------- これを使用するためにプロジェクトで以下のように使用しました。 ---------------------------------------- begin TestClass.Create(Application); try Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; finally TestClass.Free; end; end. ---------------------------------------- コンパイルは通ったのですが、 実行時にクラスの例外エラーがでます。 どうしてなのでしょうか？ クラスの目的 外部変数をまとめたものをクラス化し、 アプリケーションの開始時に作成します。 アプリケーション終了後にこれらを削除しようとしています。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.