Überprüfen ob String ein korrekter Dateifilter ist

[s.h.a.r.k]

Tut mir leid, dass ich meine Frage mir selbst so schnell beantworte! Hab mir nämlich grad recht lange Gedanken drüber gemacht und bin zu folgender Funktion gekommen, die ich auch schon getestet habe! Ich bitte euch aber diese Funktion mal auf eventuelle Fehler durchzuschauen, da es doch schon halb vier in der Nacht ist

Delphi-Quellcode:

function CheckFileExtensions(Extensions: String):Boolean;
var
  Ext, title, filter, s:  String;
begin
  Result := False;
  Ext := Extensions;
  while length(Ext) > 0 do begin
    title := '';
    filter := '';
    title := copy(Ext, 1, pos('|', Ext));
    if (title = '') then begin
      Result := False;
      break;
    end else Result := True;

    delete(Ext, 1, pos('|', Ext));
    if (pos('|', Ext) = 0) then begin
      filter := Ext;
      s := copy(filter, 3, length(filter));
      if ((filter[1] <> '*') or  (filter[2] <>'.') or (length(s) < 1)) then begin
        Result := False;
      end
      else Result := True;
      break;
    end else begin
      filter := copy(Ext, 1, pos('|', Ext) - 1);
      s := copy(filter, 3, length(filter));
      if ((filter[1] <> '*') or  (filter[2] <>'.') or (length(s) < 1)) then begin
        Result := False;
        break;
      end else Result := True;
      delete(Ext, 1, pos('|', Ext));
    end;
  end;
end;

Die Funktion prüft nur ob der Titel aus mindestens einem Zeichen besteht und der Dateifilter wie folgt aussieht *.xxx (xxx steht für einen String mit der Mindestlänge von 1). Wenn ihr noch Verbesserungsvorschläge habt, dann könnt ihr die hier posten! Ansonsten bitte ich nen Moderator diesen Thread in die Code-Lib aufzunehmen thx

mfg Armin