掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
IBEvent.CancelEventsについて (ID:36122)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
はじめまして Delphi5で書かれた古いコードをコンバート(Delphi2009)したいのですが、 その関数が何をしているのか どの様に書き換えたらいいのか解りません 当時、プログラムを作った人と連絡がもう取れないので困っています。 コードは下記のようなコードです。 // イベント停止処理 function CancelEvents(var IBEvent:TIBEvents):boolean; var cnt :integer; begin cnt := 0; Result := false; repeat try IBEvent.CancelEvents; IBEvent.Registered := false; Result := true; except cnt := cnt + 1; sleep (500); end; until (result = true) or (cnt > 5); end; // イベント開始処理 function QueueEvents(var IBEvent:TIBEvents):boolean; var cnt :integer; begin cnt := 0; Result := false; repeat try IBEvent.Registered := true; IBEvent.QueueEvents; Result := true; except cnt := cnt + 1; sleep (500); end; until (result = true) or (cnt > 5); sleep(500); end; 宜しくお願いいたします。 (delphiは初心者です。)
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.