Hi @ all Delphi-Coder.
Ein Kollege von mir wollte einen MP3-Player haben der auf dem PC möglichst wenig Ressourcen verbraucht. Deshalb wollte ich diesen in Delphi für ihn schreiben. Eine Routine sieht so aus:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var i: integer;
begin
if OpenDialog1.Execute then
ListBox1.Items.LoadFromFile(OpenDialog1.Filename);
for i:=0 to ListBox1.Count do
begin
if copy(ListBox1.Items[i],0,1) = '#' then
ListBox1.Items.Delete(i);
end;
end;
Wie ihr vielleicht erkennen könnt soll der Code folgendes machen.
Er soll eine Datei zeile für Zeile absuchen und jede Zeile die mit # anfängt löschen. Wofür das ist ist egal.
Jedenfalls zeigt Delphi an dieser Stelle
if copy(ListBox1.Items[i],0,1) = '#' then
immer die
Exception: List Index Out of Bounds(X) //x ist eine Zahl
Woran liegt das?
Ach und, die Dateien sind nach dem Weiterlaufen lassen des Programmes trotzdem genauso wie sie es sein sollten in der ListBox.
Danke für die Antworten
Flips