1,184
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
c97164 2003-05-12
- 打赏
- 举报
这个函数:
ExtractFileName(FileName : string )
To maozefa(之源)
你写的也很好啊!
ExtractFileName(FileName : string )
To maozefa(之源)
你写的也很好啊!
ReplyRobot 2003-05-11
- 打赏
- 举报
UP
888888888888 2003-05-11
- 打赏
- 举报
关注
lixif 2003-05-10
- 打赏
- 举报
同意 ahjoe(强哥) 的方法，最好！
ahjoe 2003-05-10
- 打赏
- 举报
filename := ChangeFileExt('abcdef.txt', '');
阿发伯 2003-05-09
- 打赏
- 举报
自己写一个。
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;
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;
STYun 2003-05-09
- 打赏
- 举报
自己做函数了，没有直接的函数做这个功能
