Syntax Optimierbar?

[quendolineDD]

Hallo, ist die jetzige Syntax noch otpimierbar ohne irgendwelche Bewegungsabläufe zu unterschlagen?

Delphi-Quellcode:

//########################
//Bewegeungsabläufe
//X: -339 Y: -718 => Eingang

if (x = -339) and (y = -718) then
  if (exx = -338) and (exy = -719) then
    move('MoveDownLeft')
else
    move('MoveRight');

if (x = -338) and (y = -718) then
    move('MoveRight');

if (x = -337) and (y = -718) then
  if (exx = -336) and (exy = -719) then
    move('MoveUpLeft')
else
    move('MoveRight');

if (x = -336) and (y = -718) then
    move('MoveRight');

if (x = -335) and (y = -718) then
    move('MoveRight');

if (x = -334) and (y = -718) then
    move('MoveUpLeft');

if (x = -335) and (y = -719) then
    move('MoveUp');

if (x = -335) and (y = -720) then
    move('MoveDownLeft');

if (x = -336) and (y = -719) then
    move('MoveDownLeft');

if (x = -338) and (y = -719) then
    move('MoveDownLeft');

if (x = -340) and (y = -718) then
    move('MoveRight');

if (x = -340) and (y = -717) then
    move('MoveUp');

Ebenso würd ich gerne mal wissen, wenn die Procedure verlassen wird, ob dann die Werte x, y, exx und exy wieder aus dem Speicher gelöscht werden oder bleiben. Danke im Vorraus :)

Delphi-Quellcode:

lblPos.Caption := 'Position '+ pos_str;

delete(pos_str, 1, pos('X: ', pos_str)+2);
if x <> 0 then
  exx := x; //ex - X
x := strtoint(copy(pos_str, 0, pos('Y: ', pos_str)-2)); //x

delete(pos_str, 1, pos('Y: ', pos_str)+2);
if y <> 0 then
  exy := y; //ex - Y
y := strtoint(copy(pos_str, 0, length(pos_str))); //y

[Muetze1]

Vorschlag 1:

Delphi-Quellcode:

const 
  coBaseX = -339;
  coBaseY = -718;

function IsUp(y: integer): boolean;
begin
  result := ( y > coBaseY );
end;

function IsDown(y: integer): boolean;
begin
  result := ( y < coBaseY );
end;

function IsLeft(x: integer): boolean;
begin
  result := ( x < coBaseX );
end;

function IsRight(x: integer): boolean;
begin
  result := ( x > coBaseX );
end;

begin
  if IsUp(y) then
  begin
    if IsLeft(x) then
      result := UpLeft
    else if IsRight(x) then
      result := UpRight
    else
      result := Up;
  end
  else if IsDown(y) then
  begin 
    if IsLeft(x) then
      result := DownLeft
    else if IsRight(x) then
      result := DownRight
    else
      result := Down;
  end
  else if IsLeft(x) then
    result := Left
  else if IsRight(x) then
    result := Right
  else
    result := Nothing
end;

Vorschlag 2:

Delphi-Quellcode:

begin
  if ( y > -718 ) then
  begin
    if ( x < -339 ) then
      result := UpLeft
    else if ( x > -339 ) then
      result := UpRight
    else
      result := Up;
  end
  else if ( y < -718 ) then
  begin 
    if ( x < -339 ) then
      result := DownLeft
    else if ( x > -339 ) then
      result := DownRight
    else
      result := Down;
  end
  else if ( x < -339 ) then
    result := Left
  else if ( x > -339 ) then
    result := Right
  else
    result := Nothing
end;

Wieso aus dem Speicher entfernt? Wenn es Variablen innerhalb der Klassendeklaration sind, dann gibt es den Speicher über die Lebzeit der jeweiligen Instanz. Ist eine globale Variable, dann über Lebzeit der App. Ist es eine lokale Variable über die Dauer der Ausführung der jeweiligen Routine.

Aber wieso überhaupt die Frage? Ich kann dir versichern, der Delphi Speichermanager gibt nicht freiwillig Speicher den er nicht mehr benötigt an Windows zurück.

[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

[quendolineDD]

Danke für eure raschen Antworten. Um die Uhrzeit nach 10h am Rechner ist's für mich ein bisschen kompliziert, das ganze noch ordentlich nachzuvollziehen. Werde das wohl auf die ToDo-Liste eintragen und morgen nochmal schauen ;)

Es gibt halt die 2 "Flaschenhälse", wo geschaut wird, wo der Bot herkam, und wohin er weiter laufen muss um die Runde zu beenden.