Thanks,

Dom Boyce

var
    a : array [0..100] of string;
begin
    {...fill the array}
    Combobox1.Items.Clear;
    for i := 1 to 100 do
        Combobox1.Items.Add(a);
end;

to get what item is selected in the combo use Combobox1.ItemIndex

Smola

Maybe a slight correction:

var
    a : array [0..100] of string;
begin
    {...fill the array}
    Combobox1.Items.Clear;
   // Check to ensure that there are elements in the array!
   if numItems > 0 then
   // Start with 0 index, and only add the elements with a value
       for i := 0 to (numItems - 1) do  
         Combobox1.Items.Add(a[i]); // Add the correct element!
end;

Also, as the array is not necessarily full, you're best to have a
variable called numItems or something, that contains the number of
items in the array, for that the for..do loop only adds those elements
of an array that actually contain a valid value.

The array above was also created with a 0 first index (0..100), but
accessed from index value 1. Either value will work, but it  is
necessary to be consistent.

Hope this helps.

      for i := 0 to 100 do <----array starts from zero
          Combobox1.Items.Add(a[i]);<---[i]

--
Sincerely,

Andreas Kyriacou
----------------
http://www.andrikkos.co.uk (Imagine! Image Viewer)

procedure AddFromArray(Strings : array of string;
                       IntoList : TStrings;
                       AddEmptyStr : boolean);
var
  i : integer;
begin
  for i := 0 to High(Strings) do
    if AddEmptyStr or (Length(Strings[i]) > 0) then
      IntoList.Add(Strings[i]);
end;

Use as ...
var
  A : array[0..3] of string;
begin
...
AddFromArray(A, ComboBox1.Items, true);

Note that array indexes for "open" arrays (ie a parameter without an explicit
size) _must_ start from zero.

Alan Lloyd
alangll...@aol.com

Alan Lloyd
alangll...@aol.com

But there's no problem shoving an array of strings into
a combobox:

var names: array[0..3] of string; j: integer;
begin
  names[0]:= 'Tom';
  names[1]:= 'dick';
  names[2]:= 'Betty';
  names[3]:= 'Sue';
  for j:=0 to 3 do
    begin
      ComboBox1.Items.Add(names[j]);
    end;
end;