Question

delphi求一个多线程调用一个函数的代码简单的就OK

要完全的PAS文件，谢谢，最好有注释

Answer 1

这个要看你这个函数是干什么的,如果不涉及界面VCL或数据操作等需要同步的事情,那么多个线程调用同一函数跟平常调用一个函数一样,没什么特别的地方,反之,则需要注意每个线程之间的同步问题

追问

我想调用这个函数播放 音乐。 因为写在代码块里，音乐没有完成，下面的代码貌似不执行。 我想边放音乐边操作

追答

首先,我认为如果要播放音乐的话就没必要多线程调用啊,难道你想同时播放几个不同的音乐?
确实需要的话也简单,从delphi封装好的tthread中继承一个出来就行了
type
TPlayMusic = class(tthread)
private
public
constructor Create;
procedure Execute; override;
end;

constructor TPlayMusic.Create;
begin
FreeOnTerminate :=true;
inherited Create(False);
end;

procedure TPlayMusic.Execute;
begin
//这里调用你的播放音乐的函数
end;

调用方法:
在你的主程序里面,任何想调用的地方
var
PM:TPlayMusic;
begin
PM:=TPlayMusic.Create;
end;
一个PM就是一个线程,想开多少个线程就Create几个