Verzweigung

[Nicolai1234]

Als eine einfache Optimierung könntest du das auch wie folgt schreiben

Delphi-Quellcode:

if (LE = 'h') then 
   begin
   case zustand of
     1: ...
     2: ...
     3: ...
     4: ...
     5: ...
   end;
   end;

Das würde das ganze etwas verkürzen.