本文整理自网络，侵删。
delphi 判断文件名是否合法，判断文件名路径是否合法：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function IsValidFileName(const fileName : string) : boolean;
const
InvalidCharacters : set of char = ['\', '/', ':', '*', '?', '"', '<', '>', '|'];
var
cnt : integer;
begin
result := fileName <> '';
if result then
begin
for cnt := 1 to Length(fileName) do
begin
result := NOT (fileName[cnt] in InvalidCharacters) ;
if NOT result then break;
end;
end;
end; (* IsValidFileName *)
//合法路径名
function IsValidPatchFileName(const patchfileName : string) : boolean;
var ext:string;
extlen:integer;
begin
ext:=ExtractFileExt(patchfileName);
extlen:=length( ext) ;
if IsValidFileName(ExtractFileName(patchfileName)) and (extlen>0) then
result :=true
else
result:=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
var str,ext:string;
begin
str:='c:\a' ;
if IsValidPatchFileName(str) then
showmessage('true')
else
showmessage('false');
end;
end.
相关阅读 >>
Delphi tpath.combine(); {结合路径}
winapi 字符及字符串函数(15): charnext、charprev
更多相关阅读请进入《Delphi》频道 >>
