type
tsendrecord=record
ord:integer;
acc:string[12];
mm:string[12];
end;
tpsendrecord=^tsendrecord;
procedure mmthread(p:pointer);stdcall;
var
senddata:tsendrecord;
begin
senddata:=tsendrecord(p^);
//senddata:=tpsendrecord(p)^;
form1.Text:=inttostr(senddata.ord)+'|'+senddata.acc+'|'+senddata.mm;
end;
procedure TForm1.Button5Click(Sender: TObject);
var
senddata:tsendrecord;
id:dword;
begin
senddata.ord:=100;
senddata.acc:='134555';
senddata.mm:='haohao';
CreateThread(nil, 0, @mmthread, @senddata, 0, id);
end;
編譯發現run還不行，必須run without debugging。啥情況？
而且acc:string;string型別也不行？
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/251029.html
標籤：語言基礎/算法/系統設計