Die Maske mit mehreren Strings vergleichen!!!!

[marabu]

Hi Pinki,

mein Vorschlag für deinen Test der Datei-Erweiterung:

Delphi-Quellcode:

function CheckExt(const fn: TFileName; const extensions: String): Boolean;
begin
  with TStringList.Create do
  try
    Delimiter := ';';
    DelimitedText := extensions;
    Result := IndexOf('*' + ExtractFileExt(fn)) > -1;
  finally
    Free;
  end;
end;

Für die Übernahme eines ganzen Ordners würde ich das Flag ofAllowMultiSelect setzen.

Gute Nacht