Projekt Probleme: Zeitmessung und Highscore

[Swagger Jackin]

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);
  for i := 1 to 10 do    // hier Änderung
  begin
    if eof(Datei) then // hier Änderung
      break;

  readln(Datei, tempstr);
  if Pos( Sep, Tempstr ) > 0 then   // ab hier Änderung
  begin
    Name1[ i ] := Copy( Tempstr, 1, Pos( Sep, Tempstr ) - 1 );   
    Punkt1[ i ] := StrToInt( Copy( Tempstr, Pos( Sep, Tempstr ) + 1, MaxInt ) ); 
  end
else
  ShowMessage( Format( 'In "%s" ist kein Sep "%s" enthalten! Wie soll ich das denn bitte schön trennen?', [ Tempstr, Sep ] ) );
  end;
  CloseFile(Datei); 
end;

Delphi-Quellcode:

procedure TForm5.FormActivate(Sender: TObject);
var i : integer;
begin
for i := 1 to 10 do // hier Änderung
  begin
    Name1[i]   :='';
    Punkt1[i] := 0;
  end;
 
  LeseHighscore;
end; 
{==============================================================================}
end.

das was hier geschrieben wurde