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は初心者です。)