Allgemein: Wie findet man einen Fehler?

[Dejan Vu]

Zitat von noisy_master:

wie du da sinnvoll die Asserts einbaust weiss ich auch gerade nicht...Wie stellst du denn sicher, dass z nie grösser wird als die Stringlist?

Mit einem Assert

Delphi-Quellcode:

procedure TForm1.TimerEventExecute(Sender: TObject);
begin
  Assert((z>=0) and (z<sl.count),'z ist zu klein oder größer als die Länge von sl'); // <<<<<
 chrd := sl.Strings[z];
 If chrd <> '' then PlaySound(PChar(chrd), hInstance, snd_ASync or snd_Resource);
 inc(z);
end;

Es knallt an einer definierten Stelle und nicht 'irgendwo'. Obwohl das 'irgendwo' nun gerade die nächste Zeile ist, insofern... Ist das weniger FailFast und eher 'debug-code'. Aber im ein "Assert" ist es...

[nezumi7]

Zitat:

dann sehe ich da sofort einen Kandidaten, der mir suspekt vorkommt:
sl.Strings[z]; und inc(z);

Wie stellst du denn sicher, dass z nie grösser wird als die Stringlist?

Das hab ich schon alles berücksichtigt. Es funzt ja auch fast immer, leider nur fast. Ich häng das Prog (noch lang nicht fertig) mal an. Fehlermeldung am Anfang ignorieren. Song über die Combobox links oben laden....

[noisy_master]

Hi,

Zitat von himitsu:

Hast du mal versucht dein Programm schrittweise zu beenden? (Haltepunkt und dann F7)

haltepunkt ist gut, aber wo?

[Dejan Vu]

Vielleicht solltest Du den Quellcode noch anhängen.

[p80286]

Zitat von noisy_master:

Hi,

Zitat von himitsu:

Hast du mal versucht dein Programm schrittweise zu beenden? (Haltepunkt und dann F7)

haltepunkt ist gut, aber wo?

Da wo Du das Programm beendest?
das end. ist u.U. auch ein guter Ort dafür oder finalization .

Gruß
K-H

[ExceptionOverflow]

Zitat von nezumi7:

Zitat:

dann sehe ich da sofort einen Kandidaten, der mir suspekt vorkommt:
sl.Strings[z]; und inc(z);

Wie stellst du denn sicher, dass z nie grösser wird als die Stringlist?

Das hab ich schon alles berücksichtigt. Es funzt ja auch fast immer, leider nur fast. Ich häng das Prog (noch lang nicht fertig) mal an. Fehlermeldung am Anfang ignorieren. Song über die Combobox links oben laden....

ein kompiliertes Programm hilft uns nicht viel weiter, denn dann bekommen wir nur den Absturz zu sehen Die Sourcen sind wichtig.
Debuggen ist Übung und man muss ein Gefühl dafür entwickeln. Mit der Zeit (Erfahrung und Wissen) kennt man übliche Fehlerquellen oder weis auch selbst bei welcher Code Stelle man sich unsicher gefühlt hat beim schreiben. Im Notfall setzt du den Haltepunkt ganz am Anfang und gehst Schritt für Schritt durch, das klingt anfangs etwas viel aber normal sollte dein Programm ja keine Tausendzeilen Code durchlaufen wenn du nur mal einen Testfall prüfst.

[BadenPower]

Hallo zusammen,

einen Riesenfehler hast Du schon einmal, wenn Du nach dem Programmstart, ohne dass Du ein "Lied" selektiert hast, auf "Pause" drückst und dannach sofort aus "Cont".

Hier würde ich einmal ansetzten zu suchen.
"Keine Daten da, aber weitermachen" kann nicht gutgehen.


Und heisst Deine "Form1" auch tatsächlich immer "Form1"?

Delphi-Quellcode:

procedure TimeCallBack(TimerID, Msg: Uint; dwUser, dw1, dw2: DWORD); pascal;
begin
With Form1 do begin
TimerEvent.Execute;
end;
end;

Edit:

Das Teil steckt ja voller Fehler.

Wenn man wärend des Abspielens die Clear-Taste drückt, dann kommt eine Exception.

Hast Du ein paar Akkorde eingegeben und spielst diese komplett ab und löscht dann das Memo-Feld, dann wird nur das Memo gelöscht, aber die Akkorde sind weiter da und können abgespielt werden.

[Zacherl]

Die im ersten Post gezeigte CPU Ansicht lässt auf jeden Fall darauf schließen, dass versucht wird die virtuelle Methode eines nicht erzeugten Objekts zu callen. Das MOV EAX, [EAX] ist vermutlich die Dereferenzierung des Objekts mit dem Ziel die Adresse der VTable zu ermitteln. Da hagelt es dann die Exception, da EAX (das Objekt) in deinem Context noch nicht created wurde.