Adding values to a combo box

[dhouard]

My problems is that I'm not sure what method I must use to add values to a combobox when I start the program.

I thought it was combo.additem('value') but whenever I try to do so I have an error.

Here's the code

procedure TForm1.Form1Create(Sender: TObject);
begin
   frecu.additem('valor1');
end;

'Frecu' is the combobox. I try to add the values when the form is created.

The error is:

Cannot access a private field of an object here.

If the code is

begin
   TForm1.frecu.additem('valor1');
end;[/i]


The error is:


Only Class methods can be reffered with class references

I don't know what I'm doing wrong...

Thanks.
Dhouard.

[Vincent Snijders]

I don't get this error, when I try do the same. I get a different error.

Try this:
procedure TForm1.Form1Create(Sender: TObject);
begin
  Frecu.Items.Add('Test Value 1');
  Frecu.AddItem('Test Value 2', nil);
end;

[Raiden]

I receive the same error (the first of them) when I try to show a messagebox :S

PS: dhouard, yo de Málaga  :lol:

[Weitentaaal]

Items.Add Worked For me

[AL]

May be your form1 is not created.
Do you have application.createform(tform1,form1) in your project.lpr file?

[lucamar]

I thought it was combo.additem('value') but whenever I try to do so I have an error.

The message is not very informative but AddItem() is declared as:

Code: Pascal  [Select][+][-]

1. procedure AddItem(const Item: string; AnObject: TObject); virtual;

so if you want to use it you have to do:

Code: Pascal  [Select][+][-]

1.    frecu.additem('valor1', Nil);

as Vincent showed.

If the code is

Code: [Select]

begin
   TForm1.frecu.additem('valor1');
end;The error is:
Only Class methods can be reffered with class references

That one is quite correct: you're trying to access a field of the object but you're using a class reference, which can only be done with class methods, which are those declared as, e.g.:

Code: Pascal  [Select][+][-]

1. class function Something(AParam: Integer): String;

HTH!

[sstvmaster]

Perfect, solved after 16 Years.