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

[inherited]

Entweder nimmst d
u dafür eine Ini-Datei oder einen FileStream.
Beispiel Filestream:

Delphi-Quellcode:

var
  fs: TFileStream;
begin
  try
    fs:= TFileStream.Create(Dateiname, fmCreate);
    fs.Write(Length(RekordName), SizeOf(Integer));
    fs.Write(RekordName, SizeOf(RekordName));
    fs.Write(Length(RekordZahl), SizeOf(Integer));
    fs.Write(RekordZahl, SizeOf(RekordZahl));
  finally
    fs.Free;
end;

[...]

var
  fs: TFileStream;
begin
  fs:= TFileStream.Create(Dateiname, fmOpenRead);
  try
    fs.Read(Laenge, SizeOf(Integer));
    fs.Read(AktuellerRekordName, Laenge);
    fs.Read(Laenge, SizeOf(Integer));
    fs.Read(AktuellerRekord, Laenge);
  finally
    fs.Free;

Ohne garantie bin heut nich so gut drauf^^
Also, verbessert mich wenn ich falsch liege oder stehe^^