掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
終了時にエラーが出るのを止めるためには (ID:42706)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
たぶんこんな感じ？ 自動組み込みで Form2Create が実行され StringList 作成 procedure TForm1.Button1Click(Sender: TObject); begin Form2 := TForm2.Create(Self); FormCreate で StringList 作成 Form2.ShowModal; Form2.Free; <--- Form2Destroy 実行で StringList 消え end; 自動組み込みで Form2Destory 実行 StringList.SaveToFile で例外 Free では例外発生しないので何か触ってない？ var Form2: TForm2; StringList: TStringList; implementation {$R *.dfm} procedure TForm2.FormCreate(Sender: TObject); begin StringList := TStringList.Create; end; procedure TForm2.FormDestroy(Sender: TObject); begin StringList.SaveToFile('C:\A.TXT'); StringList.Free; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.