回调函数【Delphi版】
1 type2 TCallBackFuType = function(RequestS:string):boolean; stdcall; //定义回调函数原型  定义某个详细的全局函数，并指明是回调函数  1 function ThreadCallBackFunc(RequestStr:string):boolean;stdcall; 2  3 implementation 4  5 function ThreadCallBackFunc(RequestStr:string):boolean;stdcall; 6 begin 7 if Pos(\'China\',RequestStr) 0 then 8 Relt:=True 9 ee10 Result:=False11 end;  定义一个线程，该线程会调用上面的回调函数  1 type 2 TDemoThread=class(TThread) 3 private 4 RequestStr:string; 5 globalCallBackFunc:TCallBackFuncType; 6 public 7 constructor Create(RequestStr:string;globalCallBackFunc:TCallBackFuncType;CreateSuspend: Boolean); 8 procere Exee;overre; 9 destructor Destroy;override;10 end;11 12 implementation13 uses14 Main;15 constructor TDemoThread.Create(RequestStr:string;globalCallBackFunc:TCallBackFuncType;CreateSuspended: Boolean);16 begin17 inherited Create(CreateSuspended);//CreateSuspended指定创建之后是否挂起18 Self.RequestStr:=RequestStr;19 Self.globalCallBackFunc:=globalCallBackFunc;20 end;21 22 procedure TDemoThread.Execu
te;23 begin24 inherited;25 26 if globalCallBackFunc(RequestStr) then //线程内部通过获得的函数指针调用线程外部的 回调函数 27 MessageBox(Fo1.Handle,PChar(\'回调函数测试胜利,测试字符串中含有子串：China\'),PChar(\'回调函数调用结果\'),MB_OK)28 else29 MessageBox(Form1.Handle,PChar(\'回调函数测试胜利,测试字符串中无子串：China\'),PChar(\'回调函数调用结果\'),MB_OK);30 31 FreeOnTerminate:=True;//线程一旦停止，就释放内存32 end;33
>delphi trunc函数

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。