windows的文件名命名规则是什么？
我打算让用户输入一个文件名，结合命名规则用程序判断该文件名的有效性，怎么办？ 问题点数：80、回复次数：1Top
1 楼torble（阿裕）回复于 2002-01-26 12:13:50 得分 80
// 效验文件名
function ValidFileName(const FileName: string): Boolean;
function HasAny(const Str, Substr: string): Boolean;
var
I: Integer;
begin
Result := False;
for I := 1 to Length(Substr) do begin
if Pos(Substr[I], Str) > 0 then begin
Result := True;
Break;
end;
end;
end;
begin
Result := (FileName <> '') and (not HasAny(FileName, '<>"[]|'));
if Result then Result := Pos('\', ExtractFileName(FileName)) = 0;
end;Top
