Thema: Delphi Verzweigung

Einzelnen Beitrag anzeigen

bonanza

Registriert seit: 13. Sep 2005
134 Beiträge
 
RAD-Studio 2009 Arc
 
#1

Verzweigung

  Alt 21. Sep 2006, 19:52
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 ?
  Mit Zitat antworten Zitat