自己写一个。function GetFileName(FName: String): String; var x: Integer; begin x := Pos('.', FName); if x > 0 then Result := Copy(FName, 1, x - 1) else Result := FName; end;
filename := ChangeFileExt('abcdef.txt', '');
同意 ahjoe(强哥) 的方法,最好!
这个函数:ExtractFileName(FileName : string ) To maozefa(之源) 你写的也很好啊!
var
x: Integer;
begin
x := Pos('.', FName);
if x > 0 then Result := Copy(FName, 1, x - 1)
else Result := FName;
end;