Validere filnavn

http://www.delphifaq.com/faq/delphi/windows_file_system/f418.shtml

Den er ikke perfekt, men jeg kunne ikke finde nogen funktion i SysUtils der gør det for os.

Den har jeg også siddet og rodet med, men som du siger er den ikke perfekt.

prøv at oprette filen, midlertidigt! hvis ikke den kan får du en fejl og hvis den kan, sletter du den bare igen

Du må nok køre filnavnet gennem et regulært udtryk som dette

"[a-zA-Z\.]\w+(?![/\\])"
FILENAME = r"([a-zA-Z]?[\w./\\]+\.((mls)|(o))" - syntaks er kun tæt på at være korrekt (men der var nogle af kombinationerne der blev konverteret til smileys).

Jeg ved det er indbygget i .NET men ikke om man kan det direkte i VCL. Skal prøve at undersøge det lidt.

Jeg har en unit til regular expressions, så det er ikke noget problem (i øvrigt er regular expressions rigtig cool)

Men checker den også for dobbeltforekomster af : ?

jape44 - det er ikke så smart at skulle gøre det på den måde. Det kan jo tænkes at det er en fil der skal appendes til, så at slette den vil være en katastrofelignende action.

Der er en masse eksempler her (men reg-ex er desværre ikke uden dialekter): http://regexlib.com/Search.aspx?k=file+name

hugopedersen

Du kan selvfølgelig programmere dig ud af det, og indberegne den tid det tager dig at programmere funktionen, men jeg ser ingen grund til, IKKE at benytte sig af windows API

http://msdn.microsoft.com/en-us/library/aa363858%28VS.85%29.aspx

Dit argument mod at slette en fil holder ikke. Opret en fil (det filnavn) i et eller katalog og se om det holder? Hvis ikke får du en fejl!

Hvis den holder, bliver der oprettet en fil? og så slet den!

Hvorfor genopfinde den dybe tallerken?

Hvis du definerer at:
- et ikke eksisterende directory er invalidt
- brugerne ikke har mulighed for at indtaste non-printable tegn
så kan du prøve:

function IsValidFileName(fnm : string) : boolean;

function IsValidShortFileName(fnm : string) : boolean;

const
  Invalid = '<>:"/\|?*';

begin
  IsValidShortFileName := LastDelimiter(Invalid, fnm) = 0;
end;

begin
  IsValidFileName := DirectoryExists(ExtractFilePath(fnm))
                    and IsValidShortFileName(ExtractFileName(fnm));
end;

arne_v>  det har den ønskede effekt ser det ud til. Smid et svar.

svar