Hi nezumi,
wie du da sinnvoll die Asserts einbaust weiss ich auch gerade nicht, aber wenn ich mir deinen Code so ansehe
Danke Dejan Vu,
Delphi-Quellcode:
procedure TForm1.TimerEventExecute(Sender: TObject);
begin
chrd := sl.Strings[z];
If chrd <> '' then PlaySound(PChar(chrd), hInstance, snd_ASync or snd_Resource);
inc(z);
end;
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?
Gruß
Dirk