if then mit vielen möglichkeiten

[deusmac]

Ich will mir Zahlen generieren lassen und je nach Zahl etwas anderes machen in einem Programm. Leider habe ich vergessen wie man das schreibt. Theoretisch gige es mit einer Reihe ineinander verschachtelten if anweisungen, ich möchte es aber in der form haben das ich einfach die möglichen Ergebnisse im Quelltext untereinanderstehen habe und jeweils dann die entsprechende procedure aufgerufen wird. Ich hoffe die Frage ist nicht zu blöde ich habs einfach vergessen und freue mich über Antworten ;-).

[sakura]

Meinst Du

Delphi-Quellcode:

case X of
  0: ;
  1: ;
  2: ;
  ...
else
  ...
end;

...:cat:...

[deusmac]

Ja genau das hab ich gemeint. Danke

[himitsu]

Ähm, so in etwa

Delphi-Quellcode:

procedure Prozedur1;
  ...

procedure Prozedur2;
  ...

procedure Prozedur3;
  ...

...
begin
  case Random(100) of
    1..5: Prozedur1;
    6..9: Prozedur2;
    0, 10..99: Prozedur3;
  end;
end;

[edit]
ach menno :cry: