Überprüfen ob String ein korrekter Dateifilter ist

[s.h.a.r.k]

Das umbenennen ist sinnvoll - Habe die Funktion auch etwas spät in der Nacht geschrieben *gähn*

Wäre ja fast zu nem AccessViolationError gekommen! (Wenn ich nicht die Länge des eigentlichen Filters abfragen würde)

// Edit: Hab hier eine komplett funktionierende Version, die ohne Makel sein sollte..

Delphi-Quellcode:

function CheckFileExtensionFilter(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; 

    delete(Ext, 1, pos('|', Ext)); 
    if (pos('|', Ext) = 0) then begin 
      filter := Ext; 
      s := copy(filter, 3, length(filter)); 
      if Length(Filter) < 1 then begin 
        Result := False;
        break;
      end;
      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;