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

Question

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

Answer 1

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

Answer 2

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即为文件名。