Ohne zu wissen, wie ReadMIDIFile die Struktur füllt ... mit ist aufgefallen, dass in guter alter Delphi-Manier
Delphi-Quellcode:
for IntA := 0 to FileInfo.NoteCounter[IntI] -1 do
begin
durchlaufen wird, aber
Delphi-Quellcode:
for IntI := 1 to FileInfo.Tracks do
begin
. Wenn das
Delphi-Quellcode:
for IntI := 0 to FileInfo.Tracks-1 do
begin
heissen sollte, dann schaust Du immer auf die falsche Note. Bzw beim letzten Schleifendurchlauf kracht's dann.
Aber wie auch immer ...
Was soll ich denn jetzt machen.. grrrr
ruhig bleiben und erstmal davon ausgehen, dass man den Fehler selbst gemacht hat.
Was, wenn Du den Code sicherst und dann wegwirfst und langsam nochmal alles von vorne machst?