Syntax Optimierbar?

[Gehstock]

könnte so in etwa aussehen

Delphi-Quellcode:

case x of
   -340 : Begin
     case Y of
      -718 : move ('MoveRight');
      -717 : move ('MoveUp');
     end; //y
   End; // -340
   -339 : Begin
     case Y of   //geht hier auch ohne Case aber vieleicht kommt ja noch was
      -718 : then
         if (exx = -338) and (exy = -719) then
          move('MoveDownLeft')
         else
          move('MoveRight');
     end; //y
   End; // -339
   -338 : Begin
     case Y of
      -719 : move ('MoveDownLeft');
      -718 : move ('MoveRight');
     end; //y
   End; // -338
   -337 : Begin
     case Y of   //geht hier auch ohne Case aber vieleicht kommt ja noch was
      -718 : then
         if (exx = -336) and (exy = -719) then
          move('MoveUpLeft')
         else
          move('MoveRight');
     end; //y
   End; // -337
   -336 : Begin 
     case Y of
      -719 : move ('MoveDownLeft'); 
      -718 : move ('MoveRight');
     end; //y 
   End; // -336
   -335 : Begin 
     case Y of
      -720 : move ('MoveDownLeft'); 
      -719 : move ('MoveUp'); 
      -718 : move ('MoveRight');
     end; //y
   End; // -335 
   -334 : Begin
     case Y of   //geht hier auch ohne Case aber vieleicht kommt ja noch was
      -718 : move ('MoveUpLeft');
     end; //y
   End; // -334
end; //Case

Die Integer werte bleiben solange erhalten bis sie geändert oder Freigegeben werden bzw. das programm beendet wird