TComboBox error

[T-bear]

Hi, i am making a program that uses TCombobox, but i have a little problem.
I want to set one string in the items property of the combobox.
This seems to work fine:
ComboBox1.Items[X]       :=Quests[X].Name;

But this in another unit doesnt:
Form1.ComboBox.Items[Z]:=Unit4.Quests[X].Name;

I get the following error:
List Index (0) out of bounds

lazarus: v. 0.9.30
fpc:v.2.4.2
Windows XP

Can you please help me!
Thanks!

[typo]

Probably because Z is larger than the number of ComboBox items. ComboBox items array is zero based.

[T-bear]

Do i have to create them? cos i havent done that in the first code that worked well either. And Z is just a variable in a For XXX TO YYY statement from 0 to a variable number that in this case is 1.

[typo]

Probably because ComboBox is empty.

[T-bear]

Yeah, it is that in the first example to, but there it works. What do i then have to do to add a new item?

[typo]

You need to limit FOR loop to ComboBox.Items.Count - 1.

[T-bear]

And if i want to make a new item at the end? Because the combobox is emty at the beginning, and should be filled with items after a while.

[typo]

Items.Count is dynamical.

[T-bear]

Now it doesnt put anything into it.

Code: [Select]

For Z:=0 To Quest-1 Do
            If Z < KEQuest.Quest.Items.Count Then
            begin
              Unit4.Quests[Z]       :=TQuest.Create;
              //-----------------------------------\\
              Unit4.Quests[Z].Name  :=OpenList[Count];
              KEQuest.Quest.Items[Z]:=Unit4.Quests[Z].Name;
              Count:=Count+1;

              //...
            end;
The working code looks like this, and i just dont get whats wrong:

Code: [Select]

Quest.Items[Quest.itemindex]:=QuestName.Text;
The scond code works, but the first doesnt, and in the second example the combobox also is emty.
Any ideas?
Thanks!

PS: Sorry if you already have told the answer, im still pretty new to lazarus and pascal