Projekt Probleme: Zeitmessung und Highscore

[rollstuhlfahrer]

zu den Delphi-Tags: Wenn du hier einen Post verfasst, hast du eine Leiste, wo unter anderem B, i und U steht. In der selben Leiste steht auch "Delphi-Code". Dies ist ein BBCode extra für Delphi-Code.

Punkt c: "Name bleibt aber Label1 oder Label2" -> so sollte es aber nicht sein. Mach doch LblZeit für die Zeit und LblPunkte für die Punkte, Lbl* für *. So kann man sich besser zurecht finden.

zu deinem Highscore:

Delphi-Quellcode:

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

procedure TFormX.LeseHighscore;
var 
  Datei : TextFile;
  Name : string;
  Punkte, i : integer;
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, Name, Punkte);
  Name1[i]:=Name;
  Punkt1[i]:=Punkte; // EDIT: Semikolons dürfen von keinem vergessen werden
//i:=i+1;
  end;
  CloseFile(Datei); // Parameter nicht vergessen
end;

procedure TFormX.FormActivate(Sender:TObject);
var i:integer;
begin
  for i := 1 to 10 do // von 1 bis 10 (nicht 0 bis 9, weil dein Array von 1 bis 10 geht -> siehe Definition)
  begin
    Name1[i]:='';
    Punkt1[i]:=0;
  end;

  LeseHighscore;  // LEsehighscore reicht wenn man es 1x aufruft (du hattest 10x)
end;

Bernhard