If-Schleifen-Haufen zusammenfassen

[XeRo]

Also meine If Schleifen sehen im Moment etwa derartig aus:

Delphi-Quellcode:

if(s='avi')or
(s='mpg')or
(s='mpeg')or
(s='wmf')or
(s=.....)...

Wie kann ich das vernünftiger machen?

[Zacherl]

Hi,

erstmal: if ist kein Schleifen Befehl ...

Du könntest alle Dateiendungen in einem Array speichern und dann mit dem Operator IN abfragen, ob die Endung enthalten ist.

Florian

[Interceptor]

nen array mit den dateiendungen bauen, danach mit ner for-schleife drübergehn & abfragen?

[leddl]

Zitat von Florian Bernd:

Du könntest alle Dateiendungen in einem Array speichern und dann mit dem Operator IN abfragen, ob die Endung enthalten ist.

Seit wann geht das mit Arrays? AFAIK funktioniert IN nur mit Sets (und die funktionieren AFAIK nicht mit Strings ).

[Klaus01]

Zitat von XeRo:

Also meine If Schleifen sehen im Moment etwa derartig aus:

Delphi-Quellcode:

if(s='avi')or
(s='mpg')or
(s='mpeg')or
(s='wmf')or
(s=.....)...

Wie kann ich das vernünftiger machen?

Vielleicht so?

Delphi-Quellcode:

var
  FileTypes : set of ['avi','mpg','mpeg','wmf']


if s in FileTypes then
 ...

Grüße
Klaus

[Neutral General]

Sowas geht nicht weil das kein Ordinaltyp ist wie ich letztens auch vom Compiler zu hören bekommen hab-.-^^

[Klaus01]

Danke,

so sollte es aber funktionieren.

Delphi-Quellcode:

var 
  FileTypes : set of (avi, mpg, mpeg, wmf) 


if s in FileTypes then 
...

sorry geht auch so nicht.




Grüße
Klaus

[leddl]

Zitat von Klaus01:

so sollte es aber funktionieren.

Delphi-Quellcode:

var 
  FileTypes : set of (avi, mpg, mpeg, wmf) 
if s in FileTypes then

Dann müßte er aber aus seinem String erstmal den Datentyp machen, wofür er wieder ein if braucht

[Die Muhkuh]

Schau dir mal AnsiIndexText an.

Edit:

Kleines Beispiel:

Delphi-Quellcode:

const
  FileTypes: array [0..4] of string = ('avi', 'mpg', 'mpeg', 'wmf', 'wmv');

procedure Blabla(Ext: String);
begin
  if AnsiIndexText(Ext, FileTypes) > - 1 then
  begin
    // MAch was mit mir :)
  end;
end;

[Neutral General]

Also ich glaube nicht das sowas geht. Wenn es doch ohne großen Aufwand geht dann sagt mir Bescheid. Das wäre für mich eine kleine Sensation