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 :mrgreen:

[Swagger Jackin]

Zitat:

Zitat von Sir Rufo

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

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 meldung:ProjectProject1.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... :wall: