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

[DGL-luke]

Zitat von DGL-luke:

[...]Zu InputQuery und InputBox sollten dir die code completion und die OH genug sagen.

ansonsten:

Delphi-Quellcode:

type THighScore = record
  name: string[255];
  score: Integer;
end;

procedure Save(fname: string; data: array of THighScore);
var fs: TFileStream;
    i: Integer;
begin
  fs := TFileStream.Create(fname, fmOpencreate);
  fs.writebuffer(data[0],length(data) * sizeof(THighScore);
  fs.Free;
end;

function Load(fname:string): array of THighScore
var fs: TFileStream;
begin
  fs := TFileStream.Create(fname, fmOpenRead);
  setlength(Result, fs.size div sizeof(THighScore));
  fs.ReadBuffer(data[0], length(data) * sizeof(THighScore);)
end;

Aber nur weil du unter Zeitdruck bist, normalerweise könnte man sich das locker selber erarbeiten!
(nicht getestet)