Tester le nom d'un fichier

const ShortForbiddenChars:
set of Char = [';', '=', '+', '<', '>', '|', '"', '[', ']', ' ', '', #39];
LongForbiddenChars: set of Char = ['<', '>', '|', '"', ''];

...

function TestFileName(FFileName: string; IsLong: Boolean): Boolean;
var
i: Integer;
begin
Result := True;
if IsLong then begin
for i := 1 to Length(FFileName) do begin
Result := Result and not (FFileName[i] in LongForbiddenChars);
end;
end
else begin
for i := 1 to Length(FFileName) do begin
Result := Result and not (FFileName[i] in ShortForbiddenChars);
end;
end;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour13/02/2002
VisualisationVu 738 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Autre categorie
Auteur de l'article
SwissDelphiCenter SwissDelphiCenter
connecté le 02/11/2011
329 articles dans la section
Contacter l'auteur