Anfängerhilfe Labyrinth

[Sir Rufo]

Noch etws kürzer und übersichtlicher ...

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
const 
  Step = 10;
begin
  dicke := 20;

  // Auf dem Form hat sich bis hier nix geändert, also

  form1.Refresh;  // <--- ist das wirklich notwendig?

  // es geht noch kürzer

  if key = 's' then Inc( y,  Step );    // Bewegung nach unten
  if key = 'd' then Inc( x,  Step );    // Bewegung nach rechts
  if key = 'a' then Inc( x, -Step );    // Bewegung nach links
  if key = 'w' then Inc( y, -Step );    // Bewegung nach oben

  // der rest bleibt wie gehabt

cu

Oliver

@Corpsman: genau