Variable in array

[DevilsCamp]

Zitat:

Zitat von mkinzler

Oder

Delphi-Quellcode:

for i := 0 to High(filetype2)

Sicherer wäre:

Delphi-Quellcode:

for i := Low(filetype2) to High(filetype2)

[Hawkeye219]

Zitat:

Zitat von Fredyy

dachte es gibt veilleicht ne fertige funktion.

Guter Gedanke: erst mal sehen, ob es etwas fertiges gibt. Die Unit StrUtils bietet folgende Funktionen an:

AnsiMatchStr AnsiMatchText AnsiIndexStr AnsiIndexText

Gruß Hawkeye

[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