Dateiname auf Gültigkeit prüfen

[Spezi1980]

Hallo, ich will mal im Sinne von

Zitat:

Die Code-Bibliothek ist um so wertvoller, je mehr Einträge sie zu bieten hat.[...]

mal ein paar Codzeilen aus meiner Sammlung veröffentlichen.

Der folgende code prüft die Richtigkeit eines eingegebenen Dateinamens:

hinter die Uses Clausel folgenden Code einfügen:

Delphi-Quellcode:

const
  ShortForbiddenChars: set of char = [';', '=', '+', '<', '>', '|', '"', '[', ']', ' ', '\', #39, '?'];
  LongForbiddenChar: set of char = ['/', ':', '*','<','>', '|', #39, '\', '?'];

Delphi-Quellcode:

//Schaut, ob ein gültiger Dateiname eingegeben wurde.
function CheckFilename(Filename: string; Win32: Boolean): Boolean;
var
  NameValid: boolean;
  i: Integer;
begin
  NameValid:=true;
  if Win32 then
  begin
    for i := 1 to length(Filename) do
      if Filename[i] in LongForbiddenChars then
        NameValid:=false;
    end else
    begin
      for i := 1 to length(Filename) do
        if Filename[i] in ShortForbiddenChars then
          NameValid:=false;
    end;
  Result:=NameValid;
end;

Über Anregungen und Änderungen freue ich mich immer wieder.

weitere Suchbegriffe: gültig ungültig

[edit=Chakotay1308]'?' hinzugefügt. Mfg, Chakotay1308[/edit]
[edit=Matze]Code formatiert. Mfg, Matze[/edit]
[edit=Dax]Highlighting korrigiert. Mfg, Dax[/edit]
[edit=Matze]Suchbegriff hinzugefügt. Mfg, Matze[/edit]