BMDThread通过var Data: Pointer传递参数
BMDThread通过var Data: Pointer传递参数
procedure TForm1.bmdthrd1Start(Sender: TObject; Thread: TBMDExecuteThread;
var Data: Pointer);
var
s1:string;
begin
s1:='abcd';
Data:=Pointer(S1);
end;
procedure TForm1.bmdthrd1Execute(Sender: TObject;
Thread
原创
2021-07-20 15:25:53 ·
204 阅读 ·
0 评论