Alternative zu Array-Konstante?

[blackdrake]

Hallo.

Ich habe eine Frage zur Optimierung meines Codes.

Es sei folgender Code vorhanden:

Delphi-Quellcode:

function EssentialTagsAvailable(Tags: string): boolean;
var
  ary: TStringArray;
  i: integer;
begin
  result := false;

  ary := Explode(' ', Tags, 0);

  for i := 0 to Length(ary) - 1 do
  begin
    if (ary[i] = 'A') or (ary[i] = 'B') or (ary[i] = 'C') then result := true;
  end;
end;

Den Code finde ich jetzt nicht so sensationell, da ich bei einer Erweiterung/Veränderung der essentiellen Tags A, B und C die Funktion direkt bearbeiten müsste.

Mir wäre es lieber, eine Konstante zu haben, die ich bearbeiten kann.

Eigentlich wäre so etwas perfekt:

Delphi-Quellcode:

const
  essentielle_tags = ['A', 'B', 'C']; // Ich weiß, dass das nicht geht :-/

function EssentialTagsAvailable(Tags: string): boolean;
var
  ary: TStringArray;
  i: integer;
begin
  result := false;

  ary := Explode(' ', Tags, 0);

  for i := 0 to Length(ary) - 1 do
  begin
    if (ary[i] in essentielle_tags) then result := true;
  end;
end;

Sehe ich das richtig, dass die einzigste Lösung ein konstanter Array ist?

Delphi-Quellcode:

const
  essentielle_tags: array[0..2] of String = ('A', 'B', 'C');

function EssentialTagsAvailable(Tags: string): boolean;
var
  ary: TStringArray;
  i, j: integer;
begin
  result := false;

  ary := Explode(' ', Tags, 0);

  for i := 0 to Length(ary) - 1 do
  begin
    for j := 0 to length(essentielle_tags) - 1 then
    begin
      if (ary[i] = essentielle_tags[j]) then result := true;
    end;
  end;
end;

Mir gefällt bei dieser Lösung nicht, dass ich extra eine weitere Schleife einbauen muss, nur um meinen Code für z.B. bessere Lesbarkeit zu optimieren. Gibt es da etwas besseres?

Gruß
blackdrake