Snake für die Schule programmieren,Pause;Highscoures einbaun

[inherited]

Delphi-Quellcode:

  if (kopf.X=futter.X) and (kopf.Y=futter.Y) then
  begin
    Punkte:=Punkte+5;
    Inc(laenge);
    neues_futter;
  end;

Und dann

Delphi-Quellcode:

procedure TForm1.spiel_ende;
begin
  ende := True;
  Timer1.Enabled := False;
  enable_buttons(False);
  BStart.Enabled := True;
  ShowMessage('Du hast '+IntToStr(Punkte)+' Punkte erreicht);
end;