Type
Tsendrecord=record
Word: integer;
Acc: string [12].
Mm: string [12].
end;
Tpsendrecord=^ tsendrecord;
Procedure mmthread (p: pointer); Stdcall;
Var
Senddata publishes the event: tsendrecord;
The begin
Senddata publishes the event:=tsendrecord (p ^);
^//senddata publishes the event:=tpsendrecord (p);
Form1. Text:=inttostr (senddata publishes the event. The word) + '|' + senddata publishes the event. The acc + '|' + senddata publishes the event. The mm;
end;
Procedure TForm1. Button5Click (Sender: TObject);
Var
Senddata publishes the event: tsendrecord;
Id: dword;
The begin
Senddata publishes the event. The word:=100;
Senddata publishes the event. The acc:='134555';
Senddata publishes the event. Mm:='haohao';
CreateThread (nil, 0, @ mmthread, @ senddata publishes the event, 0, id);
end;
Compile found the run also not line, must run without was debugging, what circumstance?
And the acc: string; String type also not line?