编写函数

Question

从文件路径中分解出文件的名称（不考虑后缀）
function Getname(filename:string):string
谢谢！！

Answer 1

Delphi 的函数：
ExtractFileName(FileName: string): string;
ExtractFileDir(FileName: string): string;
ExtractFilePath(FileName: string): string;

Answer 2

function Getname(filename:string):string;
var
  i : Integer;
begin
  i:= 1;
  while i <> 0 do
  begin
    i := pos('\',filename);
    filename := copy(filename,i+1,length(filename)-i);
  end;
  result := filename;
end;

Answer 3

ExtractFileName(FileName: string): string;//分离文件名
ExtractFileDir(FileName: string): string;//分离跟目录

Answer 4

ExtractFileDir
ExtractFileExt
ExtractFileName//这一个应该是你要的吧!
ExtractFilePath