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

[DGL-luke]

hmm... du machst das ziemlcih kompliziert, ich finde aber keinen fehler. Was genau funktioniert denn nicht?

Am einfachsten wäre das wohl über Ini-Dateien:

Delphi-Quellcode:

uses Inifiles;

procedure TrySetNewHighscore(score: Integer; fname: TFileName);
var ini: TIniFile;
    highscore : Integer;
    username: string;
begin
  ini := TIniFIle.Create(fname);
  highscore := ini.ReadInteger('highscore','highscore',0);
  if score > highscore then
    begin
      username := InputBox('HighScore!','Bitte gib deinen Namen ein');
      if username <> '' then
        ini.WriteInteger('highscore','highscore',score);
        ini.WriteString('highscore','name',username);
    end;
  ini.Free;
end;

procedure GetHighscore(fname: TFileName; var score: Integer; var username: string);
begin
  ini := TIniFIle.Create(fname);
  score := ini.ReadInteger('highscore','highscore',0);
  username := ini.ReadString('highscore','name',''); 
  ini.Free;
end;

Das sind erheblich weniger Codezeilen als bei dir, und damit weniger fehlerträchtig.