String Collection

[alzaimar]

Du deklarierst ein Array Of String als Konstante

Delphi-Quellcode:

Const
  cStrings : Array [0..4] of String = ('Zero','Eins','Dwa','Thrie','Vor');

und suchst dann per For-Schleife:

Delphi-Quellcode:

Function StringIn (Const aPattern : String; aStringArray : TStringArray) : Boolean;
Begin
  For i:=....
End;

Oder du packst die Strings in einen String, mit delimiter und suchst mit Pos:

Delphi-Quellcode:

Const
  ccStrings = '#Zero#Eins#Dwa#Thrie#Vor';

Begin
  If Pos ('#'+aPattern, ccStrings)<>0 Then ....

Beides kurz und knapp und ausreichend schnell (wenn man es nicht gerade 100000000 aufruft).