怎样将线程当作函数使用，即要求完成线程才执行后面的程序

Question

RT：怎样将线程当作函数使用，即要求完成线程才执行后面的程序谢谢

Answer 1

设置一个全局BOOLEAN变量，在线程开始处设置这变量为真，在线程结束时设置这变量为假。在每个函数或子程序开头检查该变量是或为真，如果是，则退出本函数或子程序。var
bRun:Boolean;if bRun=True then exit;

Answer 2

用线程的WaitFor方法等待线程结束不就得了。
更好的办法是将线程的代码抽出来做个函数。