本文整理自网络,侵删。
function IsBaseFileName(const FileName: string): Boolean;begin Result := (FileName <> '') and (ExtractFileName(FileName) = FileName);end;
相关阅读 >>
在rad studio Delphi或c++安卓应用中使用自定义java库
Delphi 解决idtcpclient和idtcpserver通信中文乱码问题
Delphi trestclient + trestrequest + trestresponse
更多相关阅读请进入《Delphi》频道 >>