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 :wink: ...

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:

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.

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

[Klaus01]

Zitat:

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:

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 :) :firejump: