Einzelnen Beitrag anzeigen

Ykcim

Registriert seit: 29. Dez 2006
Ort: NRW
804 Beiträge
 
Delphi 10.4 Sydney
 
#5

AW: case string of funktioniert nicht? oO

  Alt 11. Feb 2011, 16:54
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
Patrick
  Mit Zitat antworten Zitat