Überprüfen, ob Dateiname eine bestimmte Endung hat

[moin339]

So müsste es eigentlich funktionieren (habe ich nicht getestet)

Delphi-Quellcode:

function IsFileExt(s: string): boolean;
var
  ext: string;
begin
  result := false;
  ext := ExtractFileExt(s)
  
  if FileExt = ext then
  begin
    result := true;
  end
  else
  begin
    if (pos(ext + ',', FileExt) = 1) or (pos(ext + ',', FileExt) = length(FileExt)-length(ext)) then
    begin
      result := true;
    end
    else
    begin
      if pos(',' + ext + ',', FileExt) > 0 then
      begin
        result := true;
      end; 
    end;
  end;
end;

edit: einen klienen fehler verbessert