Projekt Probleme: Zeitmessung und Highscore

[DeddyH]

Dann ändere sep mal in einen Tabulator.

Delphi-Quellcode:

const
  sep = #9;

[Swagger Jackin]

in highscore.txt, Programm nun folgendes Problem:
ProjectProject1.exe raised exeption class EConvertError with message "8000 'is not a invalid integer value'.

Delphi-Quellcode:

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

[DeddyH]

Meine Güte, setz einmal einen Haltepunkt und schau Dir den Inhalt der Variablen an, dann siehst Du, wo es noch hakt.

[Sir Rufo]

nö, fragen ist doch einfacher als Augen auf ... da muss man auch noch denken ... igitt

[Swagger Jackin]

Zitat von Sir Rufo:

nö, fragen ist doch einfacher als Augen auf ... da muss man auch noch denken ... igitt

na wenn man nicht weiter kommt oder es sieht was falsch ist, deswegen frage ich auch

[DeddyH]

Delphi-Quellcode:

Name1[i]:= Copy(tempstr, 1, Pos(Sep, Tempstr) - 1); 
ShowMessage(Copy(tempstr, Pos(Sep, Tempstr) + 1, MaxInt)); //zur Kontrolle eingefügt  
Punkt1[i]:=StrToInt(Copy(tempstr, Pos(Sep, Tempstr) + 1, MaxInt)); // Neu

Was wird ausgegeben?

[Swagger Jackin]

am anfang öffnet es sich und dann kleines Fenster mit Project1 Namen
im fenster steht steve 1200
dann kommt meldungrojectProject1.exe raised exeption class EConvertError with message "steve 1200 'is not a invalid integer value'.

[DeddyH]

Hast Du sep denn auch geändert wie weiter oben gesagt?

[Sir Rufo]

Vielleicht wird es Dir damit klarer.
Tausche die Zeilen von DeddyH mal mit diesen aus, und wirst es sehen!

Delphi-Quellcode:

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

[DeddyH]

Da sagt man es schon vor...