Listbox Problem

[Uceo]

Hi, ich habe ein Problem mit Listbox! Ich habe einen Array (interessen), in dem sollen alle listbox einträge (5 min und 5 max also 5) gespeichert werden. Ich habe den code:

Delphi-Quellcode:

for i:=1 to listbox1.Count -1 do
begin
interessen[i] := listbox3.items[i];
end;

Aber es kommt immer die Fehlermeldung "Listenindex überschreitet das Maximum (5)"! Es kann auch daran liegen, aber das glaube ich nicht, der code kommt danach:
showmessage('Sie haben folgende Interessen: ' + #13 + ' - ' + interessen[1] + #13 + ' - ' + interessen[2] + #13 + ' - ' + interessen[3] + #13 + ' - ' + interessen[4] + #13 + ' - ' + interessen[5]); Kann mir bitte jemand helfen? Danke![xml]

[chris]

hi,

wenn es eh nur 5 interessen sind dann reicht auch for i := 0 to 4 do

[Tanadirian]

Der Index von Listboxen (und andere auch) fängt bei 0 an. Die Schleife will aber auf Platz 5 in der Listbox zugreifen der aber die Nummer 4 trägt, nicht die 5.

[Uceo]

Danke!