源代码如下: //Word打印(声明部分) wDoc,wApp:Variant; function PrnWordBegin(tempDoc,docName:String):boolean; function PrnWordReplace(docText,newText:String;bSimpleReplace:bo ...……
TThread.CreateAnonymousThread(方法名或者匿名方法).Start();procedureTForm1.Button1Click(Sender:TOBject);begin TThread.CreateAnonymousThread( procedure() begin //dosomthing end ).start( ...……