unit time5;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;
  flag:boolean;
function timeGetTime : integer stdcall; external 'winmm.dll'
implementation    {$R *.dfm}    procedure TForm1.Button1Click(Sender: TObject);
var
flag1:boolean;
b,my_time,my_time1,T,X,I:INTEGER;
begin    flag1:=false;
 x:=0;
while not(flag) do
  begin
  my_time:=timegettime;
  label1.Caption :=inttostr(my_time);
 while not(flag1)do
 begin
 if  timegettime-my_time>=1then
  BEGIN
  X:=X 1;
  label1.caption := INTTOSTR(my_time);
    my_time1:=timegettime;
    label2.caption := INTTOSTR(my_time1);
    label3.Caption :=inttostr(x);
    break;
    end
    else
    begin
    //x:=999999;
    end;
   break;
   end;
  end;
 end;    procedure TForm1.Button2Click(Sender: TObject);
begin
flag:=true;
end;
end.

其中timeGetTime是以毫秒來當單位的～～ 我想利用這個程式，讓我能夠每隔一個毫秒做一些事情... 可是一直弄不好 ＠＠” 請問各位這程式有錯嗎？？ 一直會當掉～～ 若將break;改成exit;則只會執行一次 ＠＠” 請問有別的方法嗎 ＾＾ 先謝謝大家囉

tab0922 你好

procedure TForm1.Button1Click(Sender: TObject);
var
flag1:boolean;
b,my_time,my_time1,T,X,I:INTEGER;
begin    flag1:=false;
 x:=0;
while not(flag) do
  begin
  my_time:=timegettime;
  label1.Caption :=inttostr(my_time);
 while not(flag1)do
 begin
 if  timegettime-my_time>=1then
  BEGIN
  X:=X 1;
  label1.caption := INTTOSTR(my_time);
    my_time1:=timegettime;
    label2.caption := INTTOSTR(my_time1);
    label3.Caption :=inttostr(x);
    break;
    end
    else
    begin
    //x:=999999;
    end;
   break;
   end;
   Application.ProcessMessages; // 加上這行看看吧!
  end;
 end;

_______________________________________ 深藍的魚，祝您好運..........連連

Chance36 你好： 先謝謝你了，程式可以正常執行了 ＾＾ 不好意思我是新手，能否請問一下～～ Application.ProcessMessages; 是什麼意思丫 ＾＾