kann mir mal einer erklären, warum mir beim 2.procedure ein fehler angezeigt wird?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 procedure TForm1.Tasten(Sender: TObject; var Key: Char);
    begin
      Case Key of
      'w':image1.Top:=image1.Top-30;
      's':image1.Top:=image1.Top+30;
      'a':image1.Left:=image1.Left-30;
      'd':image1.Left:=image1.Left+30;

      end;

begin
image1.Visible:=true;
Tasten;

end;

end.

Zitat von Kingpin000:

kann mir mal einer erklären, warum mir beim 2.procedure ein fehler angezeigt wird?

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 procedure TForm1.Tasten(Sender: TObject; var Key: Char);
    begin
      Case Key of
      'w':image1.Top:=image1.Top-30;
      's':image1.Top:=image1.Top+30;
      'a':image1.Left:=image1.Left-30;
      'd':image1.Left:=image1.Left+30;

      end;

begin
image1.Visible:=true;
Tasten;

end;

end.

das "TForm1" vor "Tasten" muss weg, "var" brauchst du auch nicht, da es keine Variablen gibt

...und außerdem fehlt noch ein end;

BTW: Wär gut, wenn du nächstes Mal die Fehlermeldung(en) noch dazuschreibst. Glaskugeln funktionieren nicht immer so gut...

mfg

Christian

procedure TForm1.Tasten(Sender: TObject; var Key: Char);

außerdem übergibst du der prozedur keine variable 'key'