本文整理自网络,侵删。
function IsBaseFileName(const FileName: string): Boolean;begin Result := (FileName <> '') and (ExtractFileName(FileName) = FileName);end;
相关阅读 >>
Delphi2010的操作界面切换到Delphi7的操作模式
更多相关阅读请进入《Delphi》频道 >>
本文整理自网络,侵删。
function IsBaseFileName(const FileName: string): Boolean;begin Result := (FileName <> '') and (ExtractFileName(FileName) = FileName);end;
相关阅读 >>
Delphi2010的操作界面切换到Delphi7的操作模式
更多相关阅读请进入《Delphi》频道 >>
管理员已关闭评论功能...