如何得到不含后缀名的文件名?

[cnsz]

用TSearchRec类型的变量的name属性得到的文件名是含后缀的,如xxx.mp3
怎样只得到xxx呢?

[qingenerp]

比较笨的方法，首先获取文件名xxx.mp3
然后再获取最后一个‘.’的位置，
然后再用copy的方法获取文件名。

[cnsz]

因为一次要处理好多文件,这样的话很浪费时间啊
不知道有没有更好的方法

[qingenerp]

var
sFileName:string；
i:integer;
s:char;
begin
sFileName:='xxx.xx.mp3';
For i;=Length(sFileName) downto 1 do
begin
s:=sFileName[i];
if s='.' then
Break;
end;
sFileName:=Copy(sFileName,1,i-1);
end;
最后得到的sFileName即为文件名。