unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
hThread:THandle;
ThreadID:DWord;
answer:Integer;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
hThread:=CreateThread(nil,0,@test,nil,0,ThreadID); 這裡出錯Undeclared identifier: 'test' end;function test:Longint;stdcall;
var
i:Integer;
begin
for i:=1 to 2000000 do
begin
inc(answer,Round(Abs(Sin(Sqrt(i)))));
Form1.edit1.Text:=IntToStr(answer);
end;
Result:=1;
end;end.
這是爲什麽啊~~~~~~~
拜託了~~~~~~~~~~
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
hThread:THandle;
ThreadID:DWord;
answer:Integer;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
hThread:=CreateThread(nil,0,@test,nil,0,ThreadID); 這裡出錯Undeclared identifier: 'test' end;function test:Longint;stdcall;
var
i:Integer;
begin
for i:=1 to 2000000 do
begin
inc(answer,Round(Abs(Sin(Sqrt(i)))));
Form1.edit1.Text:=IntToStr(answer);
end;
Result:=1;
end;end.
這是爲什麽啊~~~~~~~
拜託了~~~~~~~~~~
解决方案 »
- {$H+}...........{H-}什么意思,高人指教小弟这个菜鸟
- ADOdataset 怎样SQL?
- 请问:ACM Driver Error 是什么错误?
- 紧急求教
- 高分---动态增加dbf表的字段,用ado动态连接数据库,出现字段定义语法错误
- dbchart分页显示的问题
- (马上给分)怎样才能实现日期的自动加1 如2002-10-20 变为 2002-10-21在线等候
- SQL7.0中的触發器問題(關于set nocount off)
- 请问if Key = #32 then key=#0是不是说当按下空格建的时候,什么都不做呢?
- 使用ADO方式,如何连接Access数据库最快?
- 求助--ToraQuery控件使用的問題
- Delphi调用VC动态库的Char指针返回问题
function test:Longint;stdcall;