Highscore erstellen, speicher, laden

[ferby]

Hello,

wenn ich das richtig verstanden habe brauchst du ca. so etwas:

Delphi-Quellcode:

uses
  SysUtils;

var
    MyFile: TextFile;
    i: Integer;
    score: array [1..5] of integer;
    temp: String;
begin
  // <-- ZUM LESEN -->

  // Öffne Datei
  assignfile(MyFile, 'score.txt');
  reset(MyFile);

  i:=0;

  // Lese Datei aus und speicher alles in inhalt
  while not EOF(MyFile) do
  begin
    readln(MyFile, temp);
    score[i] := StrToInt(temp);
    inc(i);
  end;

  closefile(MyFile);


  // <-- ZUM SCHREIBEN -->

  temp:='';

  for i := 0 to length(score) do
  temp:=temp + inttostr(score[i]) + #10;

  // Speichern
  assignfile(MyFile,'score2.txt');
  if not fileexists('score2.txt') then
  rewrite(MyFile)
  else
  append(MyFile);
  write(MyFile, temp);
  closefile(MyFile);

end.