delphi 指针函数传递问题

Test=record
a: Integer;
b: Integer;
end;

function MyThreadFun(var Param: Test): Integer; stdcall;
begin
EnterCriticalSection(CriticalSection);
Form1.Button1.Enabled:=False;
form1.Memo1.Text := IntToStr(Param.a);
form1.Memo1.Lines.add(IntToStr(Param.b));
// Result := 0;
Sleep(500);
Form1.Button1.Enabled:=true;
LeaveCriticalSection(CriticalSection);
ExitThread(4);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Id: Dword;
P: test;
begin
p.a:=5;
p.b:=6;
Button1.Enabled:=false;
if CriticalSection.RecursionCount<>0 then
DeleteCriticalSection(CriticalSection);
InitializeCriticalSection(CriticalSection);
Createthread(nil, 0, @MyThreadFun, @p, 0, Id);
end;
我明明传递过去的是,a=5,b=6,memo1中显示的是其他值,按钮按一次,值都不相同

2个回答

@苏小喵 你的例子看了,但我自己的程序还是不会改,能把上面的程序改改吗

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问