Dateiname auf Gültigkeit prüfen

[shmia]

Hier kommt meine verbesserte Version (der Vergleich wird abgebrochen, sobald das 1. ungültige Zeichen erkannt wird):

Delphi-Quellcode:

{******************************************************************
* Philipp Frenzel (Simon Reinhards FAQ)
* ----------------------------
* Name       : FUNCTION CheckFilename(Filename: STRING; Win32: Boolean): Boolean;
* Datum      : 19.02.2004
* Bemerkung  : Schaut, ob ein gültiger Dateiname eingegeben wurde.
******************************************************************}
function CheckFilename(const Filename: STRING; Win32: Boolean): Boolean;
const
  {fuer 8.3-Dateinamen im DOS-Format:}
  ShortForbiddenChars: set of char = [';', '=', '+', '<', '>', '|', '"', '[', ']', ' ', '\', #39];
  {fuer lange Dateinamen im Win95-Format:}
  LongForbiddenChars: set of char = ['<', '>', '|', '"', '\'];
var
  i: Integer;
begin
  Result := False;
  if Win32 then
  begin
    for i:=1 to length(Filename) do
      if Filename[i] in LongForbiddenChars then
        Exit;
  end
  else
  begin
    for i:=1 to length(Filename) do
      if Filename[i] in ShortForbiddenChars then
         Exit;
  end;
  Result:=True;
END;

[edit=Chakotay1308]Code-Style. Mfg, Chakotay1308[/edit]
[edit=Dax]Highlighting korrigiert. Mfg, Dax[/edit]