If-Schleifen-Haufen zusammenfassen

[Klaus01]

Delphi-Quellcode:

const
  FileType ='avi_mpg_mpeg_wmf';

if pos(s,FileType) <> 0 then
  ...

mein letzter Versuch.

Einen schönen Feierabend.

Grüße
Klaus

[XeRo]

Wow danke für die extrem schnellen antworten!
Besonders Letzte methode gefällt mir!
Vielen dank!

[Die Muhkuh]

Zitat:

Zitat von XeRo

Besonders Letzte methode gefällt mir!

Klaus' oder meine?

[dino]

kann man sich nicht ne boolean Prozedur schreiben, der man den Vergleichswert mit allen Möglichkeiten übergibt ( :kotz: genau), und true rauskriegt, wenn einer der Möglichkeiten= dem Vergleichswert sind...

[Die Muhkuh]

Hi dino,

das sollte wohl kein Problem darstellen:

Delphi-Quellcode:

function InArray(What: String; const Values: Array of String): Boolean;
begin
  Result := AnsiIndexText(What, Values) > - 1;
end;

[Cöster]

Zitat:

Zitat von Klaus01

Delphi-Quellcode:

const
  FileType ='avi_mpg_mpeg_wmf';

if pos(s,FileType) <> 0 then
  ...

Hm, und wenn s = 'i_m'? Ich wage aber zu bezweifeln, dass das schneller ist, als die Methode mit den if-Abfragen. Im Gegenteil. So wie du es mit den if's machst, ist es schon das Beste, alternativ mit der Funktion à la Dino.

[semo]

AnsiIndexText gibts aber noch nicht in delphi5 ...

alternativ erstelle man sich ein array of integer und
eine funktion die man mit dem suchwort füttert, die dann das array durchläuft und den index bw true oder false zurückliefert.

[malo]

Zitat:

Zitat von computer-glossar.de

AnsiIndexText gibts aber noch nicht in delphi5 ...

Dann halt der Haudrauf-Weg.

Delphi-Quellcode:

function InArray(s: string; const StrArray: array of string): boolean;
var i: integer;
begin
result := false;
for i := 0 to high(StrArray)-1 do
begin
  if s=StrArray[i] then
  begin
    result := true;
    break;
  end;
end;

Aufruf wäre etwa so:

Delphi-Quellcode:

const
  FileTypes: array [0..4] of string = ('avi', 'mpg', 'mpeg', 'wmf', 'wmv'); 
//...
if InArray(s, FileTypes) then DoSomething;

Ist jetzt grob zusammen gezimmert ;)

[Lannes]

Hallo,

oder die Extensionen in eine Stringlist schreiben und dann mit IndexOf prüfen.

[semo]

Delphi-Quellcode:

function InArray(s: string; const StrArray: array of string): boolean;
var 
  i: integer;
begin
  result := false;
  for i := 0 to high(StrArray)-1 do
  begin
    if s=StrArray[i] then
    begin
      result := true;
      break;
    end;
  end;
end;

würd ich immer über ne while schleife lösen,
weil break sind nen "no go"
also:

Delphi-Quellcode:

function InArray(s: string; const StrArray: array of string): boolean;
var 
  i: integer;
begin
  result := false;
  i      := 0;
  while (not Result) and (i < to high(StrArray)) do
  begin
    result := s=StrArray[i];
    Inc(i);
  end;
end;

und das ganze könnte man dann ja noch um die möglichkeit erweitern auf groß/kleinschreibung zu achten oder nicht

Delphi-Quellcode:

function InArray(s: string; const StrArray: array of string; bCaseSensitiv: Boolean = false): boolean;
var 
  i: integer;
begin
  result := false;

  if not bCaseSensitiv then  
    s := AnsiUpperCase(s);

  i      := 0;
  while (not Result) and (i < to high(StrArray)) do
  begin
    if bCaseSensitiv then
      result := s=StrArray[i]
    else 
      result := s=AnsiUpperCase(StrArray[i]);

    Inc(i);
  end;
end;