在线等：delphi用createthread创建线程时传参数问题
我是新手！下面是我的程序，帮忙看看，先谢过了；
memo1里是个很大的数字，每一次还不一样！
test=record
a:integer;
b:integer;
function MyThreadFun(p: test): Integer; stdcall;
begin
Form1.Memo1.Text:=inttostr(p.a);
Result := 0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var id:dword;
p:test;
begin
p.a:=5;
createthread(nil,0,@thread,@p,0,id);
end;
怎么没人饿！
再顶次，快来高手啊！
createthread(nil,0,@MyThreadFun,ptr(MakeLong(p.a,0)),0,id);
看看Delphi自带的Tthread源码就知道了
Delphi(Pascal) code:
PTest = ^Test;
Test=record
a: Integer;
b: Integer;
end;
function MyThreadFun(Param: Pointer): Integer; stdcall;
begin
Form1.Memo1.Text := IntToStr(PTest(Param)^.a);
Result := 0;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
Id: Dword;
P: test;
begin
p.a:=5;
Createthread(nil, 0, @MyThreadFun, @p, 0, Id);
end;
刚才看书看到了说是64位，没注意，哎~！
哪都要makelong吗？
搞错了是32位的！
5楼也可以，pointer是32位的？
好了，明天结贴。
再次感谢了！
{{--
相关问答：
VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
一般都是怎么接活的？
收入怎么样
sohu？soho？
sohu 可能是small office house unit
小办公室，把家变成单位。
去威客网啊,很多个呢,还有外包的网站
学习学习。
现在Delphi做东西不行了,处于淘汰状 ......
最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......
我本来在学校是弄的J2EE
昨天去了长沙一家公司应聘 说是有一个项目 delphi的
实习期一个月 四天半的delphi培训 后面25天给你一个设计文档自己做一个项目
走后不久打电话过来叫我星期一去报到
看到delphi� ......
有没有用delphi的兄弟想跳槽的？
地点在深圳
有的话就联系我：
QQ：377909364
email：e_hua999@163.com
读大学时候玩了一下, 帮xd顶一下
jf
up
帮顶，但不在深圳
JF
......
