copy pos来取文件名

Question

   sFile := OpenDlg.FileName;
    sFile :=copy(sfile,1,pos('.',sfile)-1);这样取得了类似 'c:\op\员工信息'  的字符串，我只想取其中的员工信息文件名，如何用pos取得最后一个'\'+1的位置，最终取得文件名

Answer 1

var
  sFile, Temp: string;
  I: Integer;
begin
  sFile := 'c:\op\员工信息';
  for I := Length(sFile) downto 1 do
  begin
    if sFile[I] = '\' then
    begin
      Temp := Copy(sFile, I + 1, Length(sFile));
      Break;
    end;
  end;
end;

Answer 2

ChangeFileExt(ExtractFileName(sFile), '');
这样就能得到你想要的文件名 员工信息 
如果你向留着扩展名，就把 ChangeFileExt 函数去掉

Answer 3

sFile := ExtractFileName( OpenDlg.FileName);  没必要用pos又再copy，多绕啊