Projekt Probleme: Zeitmessung und Highscore

[rollstuhlfahrer]

ok, ich bekenne mich Schuldig des Abschreibens vom TE.

Delphi-Quellcode:

 var:
Name1 : Array[1..10] of string;
Punkt1 : Array[1..10] of integer; // hier Integer

procedure TFormX.LeseHighscore;
var 
  Datei : TextFile;
  tempstr: string;
  Name : string;
  Punkte, i : integer;
const
  sep = ';'; //neu
begin
  assignFile(Datei,'highscore.txt');
  reset (Datei);
//i:=0;
//while not eof (Datei) do
  for i := 1 to 10 do
  begin
    if eof(Datei) then // Bei Dateiende die Schleife vorzeitig verlassen
      break;

  readln(Datei, tempstr);
  Name1[i]:= Copy(tempstr, 1, Pos(Sep, Tempstr) - 1); // Neu
  Punkt1[i]:=StrToInt(Copy(tempstr, Pos(Sep, Tempstr) + 1, MaxInt)); // Neu
  end;
  CloseFile(Datei); // Parameter nicht vergessen
end;

Bernhard