Variable in array

[marabu]

Hallo Leute.

Ich würde die Dateierweiterungen nur einmal und zwar in einer sortierten StringList bereit stellen:

Delphi-Quellcode:

var
  FileExtensions: TStringList; // global 

function CreateFileExtensions(s: String): TStringList;
begin
  Result := TSTringList.Create;
  Result.Sorted := true;
  Result.Duplicates := dupIgnore;
  Result.CommaText := s;
end;

function KnownExt(fe: TStrings; ext: String): Boolean;
begin
  Result := fe.IndexOf(ext) >= 0;
end;

begin
  FileExtensions := CreateFileExtensions('.gif,.tiff,.jpg');
  if KnownExt(FileExtensions, '.gif') then
    ShowMessage('siehste?');
end;

Grüße vom marabu