掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フルパスを列挙について (ID：21919)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
バグ発見（汗） 先日のリンク先においてあるファイルは、直してあります。 EnumFiles.zip Unit1.pasの一番最後のブロックにある(319行目） >if (Sender as TEnumFiles).Aborted then は、TForm1.abortClick(); で True になることは無い。 TForm1.abort1Click では >FThEnumFiles.Terminate; とやっていて FAborted フラグは変化しないためです。 ボタンでスレッドを停止する事は想定して いなかったので、忘れました。 procedure TEnumFiles.AbortNow; begin FAborted:=True; Terminate; end; というメソッドをつくり、それをTForm1.abort1Clickで 呼び出すようにしましょう。 失礼しました。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.