Vérifier la validité d'un nom de fichier

function IsValidFileName(Filename : string;IsLong : boolean) : boolean;
const
ShortForbiddenChars :
set of char=[';','=','+','<','>','|','"','[',']',' ','',#39];

LongForbiddenChars : set of char=['<','>','|','"',''];
var
i : integer;
begin
result := true;
if IsLong then
for i := 1 to length(Filename) do
result := result and not(Filename[i] in LongForbiddenChars)
else
for i := 1 to length(Filename) do
result := result and not(Filename[i] in ShortForbiddenChars);
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour23/01/2005
VisualisationVu 1363 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Fichier
Auteur de l'article
Communauté Delphi Communauté Delphi
connecté le 02/11/2011
0 articles dans la section
Contacter l'auteur