[code] while not(flag) do begin ttt: mytime:=timegettime; while not(flag1)do begin if timegettime-mytime>=1 then BEGIN X:=X 1; label3.Caption :=inttostr(x); break; end else begin end; end; end; 請問一下，我想利用這段程式來達到每1ms做if判斷式中的程式~~ timegettime是以毫秒為單位~~ 可是每次程式都會當掉，我發覺似乎是break的問題~~ 能否請各位高手幫我看看，哪裡出問題了~~ 謝謝 ^^

Hi tab0922,    將 break 改為 exit 試試，因為 break 只會跳出目前迴圈(while not(flag1) do)而已，而 exit 則是：    Exits from the current procedure.    Unit    System    

  while not(flag) do
    begin
//      ttt:
      mytime:=timegettime;
      while not(flag1) do
        begin
          if timegettime-mytime>=1 then
            BEGIN
              X:=X 1;
              label3.Caption :=inttostr(x);
              Exit;
            end
          else
            begin
            end;
        end;
    end;

發表人 -

------
Fishman

謝謝Fishman ^^ 不過，我那個程式就是想要用break跳出while not(flag1)do這個迴圈就好~~ 這樣的話 我剛好可以在1ms作一次 ^^ 我之前有試著用 exit，可是會跳出去二個迴圈外面，這樣的話 似乎只會作一次1ms的程式 @@" 能否請教哪裡出問題嗎 ^^ 我是新新手 ^^ 因為要用delphi來寫類神經網路，來控制一個馬達 ^^ 所以需要準確1ms來做一次我的控制程式 ^^

Hi tab0922,    

  while not(flag) do
    begin
//      ttt:
      mytime:=timegettime;
      while not(flag1) do
        begin
          if timegettime-mytime>=1 then
            BEGIN
              X:=X 1;
              label3.Caption :=inttostr(x);
              Flag1 := true;
              Break;
            end
          else
            begin
            end;
        end;
// Add some program here to control flag       
    end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

Hi tab0922 你好: 由於TDateTime格式時間為小數, 1ms 應該是 1/24/60/60/1000才對所以是1/86400000 , 所以程式改為     if timegettime-mytime>= (1/86400000) then 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.