if mit mehreren Werten

[Ta152]

Ich habe gerade was zusammenprogrammiert was nicht geht. Ich muß den Programmcode anhand eins Strings in zwei Äste verzweigen. Allerdings gibt es mehrere Strings die "Wahr" erfüllen sollen. Mein Versuch war:

if Feld = ('String1' or 'String2' or 'String3') then... else...

Das spuckt dann die Fehlermeldung "Error: Operation "or" not supported for types "Constant String" and "Constant String"" aus. Fehlermeldung ist klar. Gibts da was intelligentes der muß ich mit Case und einer Hilfsvariable arbeiten?

[m.fuchs]

Case ist eine Idee, Hilfsvariable ist nicht nötig:

Code: Alles auswählen

  case Feld of
    'String1', 'String2', 'String3': DoSomething();
  else
    DoAnythingElse();
  end;

HTH Michael

[theo]

Gibts da was intelligentes

Pascal Syntax verwenden wäre auch ziemlich intelligent.

Code: Alles auswählen

if (Feld='S1') or (Feld='S2') or ...

[m.fuchs]

Oder zweite Möglichkeit die mir gerade noch einfiel:

Code: Alles auswählen

  if AnsiMatchStr(Feld, ['String1', 'String2', 'String3']) then
    DoSomething();
  else
    DoAnythingElse();

Unit StrUtils wird benötigt.

[Ta152]

Man sieht den Wald vor lauter Bäumen nicht....

Danke.