Projekt Probleme: Zeitmessung und Highscore

[Sir Rufo]

Zitat:

Zitat von DeddyH

Da sagt man es schon vor... :wall:

Was meine Aussage aus #24 einfach nur bestätigt :mrgreen:

[rollstuhlfahrer]

bitte nicht noch mit Tipps ala Debugging hier anfangen. Das können doch Anfänger eh nicht. Selbst wenn es genug Tutorials gibt (delphi debugging tutorial) scheint das keinen zu interessieren. Übrigens hat mein Informatiklehrer das Debuggen eines Programms seit 1,6 Jahren noch nicht eingeführt. Finde ich eine starke Leistung von ihm.

Also zum Debuggen bitte unbedingt lesen: http://www.delphipraxis.net/internal...t.php?p=326082

Bernhard

PS: Woher sollte ich denn raten, dass das Trennzeichen (Sep) zwischen Name und Punktanzahl ein Leerzeichen oder ein Tabulator ist? Die gehören zumindest nicht in mein Standartrepertoire der Trennzeichen.

[Swagger Jackin]

hab es eingefügt
diesmal kam nur Showmessage und dann waren die 3 ListBox's immer noch leer
aber danke für eure Antworten

[Sir Rufo]

Wir haben hier auch keinen Fitzel von dem Source gesehen, der diese Daten jetzt in eine ListBox schreibt.

Wir haben doch bislang NUR darüber gesprochen, wie du die Daten aus der Datei in ein Array (also in den Speicher) bekommst.

so stay relaxed

[Swagger Jackin]

achso
noch nicht darüber nachgedacht (man merkt das ich Anfänger bin)
dann geht das doch schon mal

[DeddyH]

Dann zeig uns doch einmal den aktuellen Code, aber bitte nur die Änderungen.

[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

[DeddyH]

Zitat:

Delphi-Quellcode:

const
  sep = ';'; //neu

Wie bereits 2 mal gesagt, der Separator ist nicht ";". Ändere das also einmal.

Delphi-Quellcode:

const
  sep = #9; //Tabulator

[Swagger Jackin]

habe das eingefügt:

Delphi-Quellcode:

const
  sep = #9; //Tabulator

dann kommt Fehlermeldung: '8000 'ist kein gültiger Integerwert


mit dem kommt keine fehlermeldung:

Delphi-Quellcode:

const
  sep = ';'; //neu

[DeddyH]

Anscheinend steht am Stringende noch ein Leerzeichen, das kannst Du mit Trim() entfernen, bevor Du versuchst, diesen String in eine Zahl zu wandeln.