编写函数

[meng___xuan]

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

[CloneCenter]

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

[careerist]

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;

[1nbud]

有现成的：ExtractFileName()

[mengxianbao1521]

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

[Drate]

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

[meng___xuan]

谢谢各位！！