Projekt Probleme: Zeitmessung und Highscore

[Sir Rufo]

Zitat:

Zitat von Swagger Jackin

Was muss verändert werden, damit neben dem Label die Zeit steht und die Zeit nicht immer dieselbe bleibt?

ja, von Zeit zu Zeit die Zeit in das Zeitlabel schreiben

das passiert ja hier nur einmalig beim Form.Create

BTW: Bei dem Code wirst nach 10h 22min und 54sec in dem Label lapidar "24" stehen haben. Das ist dir hoffentlich bewusst.

[Swagger Jackin]

also in Zeit (Timer in Unit1) reinschreiben
Form13.Label2.Caption...
oder irre ich mich wieder?

[Swagger Jackin]

habe den Highscore übernommen, was hier geschrieben wurde
bei Programmstart folgende Meldung:
ProjectProject1.exe raised exeption class EinOutError with message 'Invalid numeric input'.
das wird blau angestrichen: readln(Datei, Name, Punkte);
Ich weiß nichts damit anzufangen :wiejetzt:

[rollstuhlfahrer]

Du kannst nicht verschiedene Datentypen lesen mit Hilfe von ReadLn. Lese eine Zeile ein und splitte die dann auf in Name und Punkte.

Bernhard

[Sir Rufo]

Zitat:

Zitat von rollstuhlfahrer

Du kannst nicht verschiedene Datentypen lesen mit Hilfe von ReadLn. Lese eine Zeile ein und splitte die dann auf in Name und Punkte.

Bernhard

:mrgreen: aber genau dieser Source kam von Dir :mrgreen:

upps - kam er doch nicht ... aber du hast den übernommen
Der Fehler müsste also vorher auch schon da gewesen sein!

[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

[Swagger Jackin]

danke das ihr so schnell antwortet
folgendes vertstehe ich nicht:

Delphi-Quellcode:

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

Was ist tempstr, Sep, MaxInt oder alle 3 Zeilen gleich?

[DeddyH]

Zitat:

Delphi-Quellcode:

var
  ...
  tempstr: string;
  ...
const
  sep = ';'; //neu

Und MAXINT ist eine in Delphi vordefinierte Konstante, einfach mal in die Hilfe schauen.

[Swagger Jackin]

ProjectProject1.exe raised exeption class EConvertError with message 'Steve 1200'.
Steve sollte als Name gelesen werden
1200 sollten Punkte darstellen
Hier muss ich ein Fehler gemacht haben

[Sir Rufo]

ja, kuck doch mal was die var sep für einen Wert hat
und dann die Frage stellen ... wieso hat sep diesen wert
ist keine zahl und im namen kommt dat auch nicht vor

Oh ... kommt sep von Seperator (englisch) -> Trenner

Oh ... muss vielleicht das Zeichen von sep zwischen Name und Punkte?