掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
条件によって関数の頭からやり直す方法について (ID:33860)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
自分を呼び出すのはどうでしょうか。 呼び出しすぎるとオーバーフローしますが。 それがだめなら独自メッセージをアプリケーションに送るとか、 ちょっと大がかりになります。 他にも方法あるんすかね？ procedure Get00; var c:Cardinal; begin c:=GetTickCount; if c mod 100 <> 0 then begin sleep(1); Get00; Exit; end; end; procedure TForm1.Button1Click(Sender: TObject); var c:Cardinal; begin Get00; //下二桁を00にする Caption:= inttostr(GetTickCount); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.