case string of funktioniert nicht? oO

[Ykcim]

Hallo,

der Threat ist zwar schon uralt, aber ich finde es am sinnvollsten auf ihm aufzubauen. Ich weiß nämlich nicht genau, wie der CaseString funktioniert und vielleicht kann es mir jemand ganz kurz erklären.

Delphi-Quellcode:

case AnsiIndexText(sj, ['Wert1', 'Wert2', 'Wert3']) of
  0: ShowMessage('Wert1');
  1: ShowMessage('Wert2');
  2: ShowMessage('Wert3');
end;

Ich weiß nicht was AnsiIndexText und was sj sind.

Ansonsten verstehe ich das so, dass Wert1-3 die möglichen Inhalte von AnsiIndexText od sj (bin mir über den Inhalt dieser beiden Komponenten unsicher) sind.
0: Diese Anweisung wird ausgeführt, wenn der Inhalt von AnsiIndexText od sj gleich dem Wert1 sind.
1: Diese Anweisung wird ausgeführt, wenn der Inhalt von AnsiIndexText od sj gleich dem Wert2 sind.
USW.

Könnte ich diese Anweisungen auch aufwendiger gestalten?
Ähnlich

Delphi-Quellcode:

case AnsiIndexText(sj, ['Wert1', 'Wert2', 'Wert3']) of
  0: begin
      if x=y then
        begin
          Blablabla;
        end;
     end;
  1: ShowMessage('Wert2');
  2: ShowMessage('Wert3');
end;

Vielen Dank im Voraus für die Nachhilfestunde

Gruß

Ykcim