Kleines Spiel in Delphi

[Sunlight7]

Zitat von EDatabaseError:

Delphi-Quellcode:

procedure TForm1.Haselnuss1Click(Sender: TObject);
begin
  Spiel(sender);
end;


procedure TForm1.Haselnuss7Click(Sender: TObject);
begin
  Spiel(sender);
end;

procedure TForm1.Haselnuss4Click(Sender: TObject);
begin
  Spiel(sender);
end;

procedure TForm1.Haselnuss6Click(Sender: TObject);
begin
  Spiel(sender);
end;

procedure TForm1.Haselnuss3Click(Sender: TObject);
begin
  Spiel(sender);
end;

procedure TForm1.Haselnuss2Click(Sender: TObject);
begin
  Spiel(sender);
end;

procedure TForm1.Haselnuss5Click(Sender: TObject);
begin
  Spiel(sender);
end;

IMHO nur Zeilenverschwendung, verknüpf' gleich alles mit der procedure Spiel kannst Dir dann das alles sparen.