简单问题,在线等待

Question

Error] main.pas(57): Unsatisfied朝向或外部说明: 'TForm1.Delay'
[Fatal Error] zsyx.dpr(6): 不能编译使用单元 'main.pas'

Answer 1

       广告时间：            CSDN结贴联盟是一个有组织有策划有安排的协会。                               法律顾问代表：Ghyghost

Answer 2

那是别人给的一个延时函数,我加到程序里用,在type中说明,估计是声明的位置不对.type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure Delay(MSecs: DWORD);//就这句有问题
...............
...............//下面的延时函数，参数是毫秒：
procedure Delay(MSecs: DWORD);
var
  BeginTime: DWORD;
begin
  BeginTime := GetTickCount;
  repeat
    Application.ProcessMessages;
  until GetTickCount - BeginTime >= MSecs;
end;
  我是菜鸟,不要笑我.

Answer 3

procedure TForm1.Delay(MSecs: DWORD);
var
  BeginTime: DWORD;
begin
  BeginTime := GetTickCount;
  repeat
    Application.ProcessMessages;
  until GetTickCount - BeginTime >= MSecs;
end;是怎样的延时 ？ 直接用 Sleep() 不行 ？ 

Answer 4

我觉得sleep()效果不好,所以在望上搜索的这段代码,大家帮帮忙.不应该很难吧?

Answer 5

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure Delay(MSecs: DWORD);//这儿定义了是 TForm1 的procedure Delay(MSecs: DWORD); //这儿少了 TForm1 Procedure TForm1.Delay() ;
要不你全部贴出来

Answer 6

感谢wjlsmail(计算机质子),不管对错,先结了,不行另开贴.