Unterprozedur

[Angel4585]

Zitat von Kingpin000:

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

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