Verzweigung

[bonanza]

hi,

ich muss für ein programm sozusagem eine wertetabelle realsisieren...

also wenn ich z.b. x und y eingebe, dann soll y' rauskommen....

wenn ich um das zu realisieren viele if abfragen machen würde, dann könnte es ja sein, dass mehrere aktionen hinteriander ausgeführt werden:

Delphi-Quellcode:

if (LE = 'h') and (zustand = 1) then zustand := 2;
if (LE = 'h') and (zustand = 2) then zustand := 5;
if (LE = 'h') and (zustand = 3) then zustand := 2;
if (LE = 'h') and (zustand = 4) then zustand := 5;
if (LE = 'h') and (zustand = 5) then zustand := 5;

if (LE = 'a') and (zustand = 1) then zustand := 5;
if (LE = 'a') and (zustand = 2) then zustand := 3;
if (LE = 'a') and (zustand = 3) then zustand := 5;
if (LE = 'a') and (zustand = 4) then zustand := 5;
if (LE = 'a') and (zustand = 5) then zustand := 5;

if (LE = '!') and (zustand = 1) then zustand := 5;
if (LE = '!') and (zustand = 2) then zustand := 5;
if (LE = '!') and (zustand = 3) then zustand := 4;
if (LE = '!') and (zustand = 4) then zustand := 5;
if (LE = '!') and (zustand = 5) then zustand := 5;

Wie kann ich das verhindern ?