翻譯c++為pascal |
|
|
|
jlamlsc
初階會員   發表：55 回覆：60 積分：28 註冊：2002-06-21 發送簡訊給我 |
請問有人可給我翻譯此c++的delay函數為pascal語言嗎?
//--------------------------------------------------------
void Delay(unsigned int mSec,bool bProcess)
{
unsigned int StartTime,CheckTime;
StartTime=timeGetTime();
do
{
CheckTime=timeGetTime();
if (bProcess) Application->ProcessMessages();
}
while ((CheckTime-StartTime)<=mSec);
}
//---------------------------------------------------------
|
|
jlamlsc
初階會員 發表：55 回覆：60 積分：28 註冊：2002-06-21 發送簡訊給我 |
對不起,小弟找到了,謝謝~
引言: 請問有人可給我翻譯此c 的delay函數為pascal語言嗎? //-------------------------------------------------------- void Delay(unsigned int mSec,bool bProcess) { unsigned int StartTime,CheckTime; StartTime=timeGetTime(); do { CheckTime=timeGetTime(); if (bProcess) Application->ProcessMessages(); } while ((CheckTime-StartTime)<=mSec); } //--------------------------------------------------------- |
發表時間：2002-07-22 12:23:56
IP:203.198.xxx.xxx 未訂閱
系統時間：2024-04-23 22:26:34
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |