Combobox

[Roya Rayane]

سلام.
من یک فیلدی دارم که Nتا رکورد دارد و می خواهم وقتی فرم لور شد تمام این رکوردها در کامبوباکس نشان داده شود من به شکل زیر نوشته ام ولی فقط یک از رکورد را نشان می دهد.
Combobox1.additem(table1.fieldbyname('name).asstri ng)'

باتشکر .

[Arman_1367]

Var I:Integer;
begin
if not Table1.Active then
Table1.Open;
Table1.First;
ComboBox1.Items.Clear;
For I:=0 to Table1.RecordCount-1 do
Begin
ComboBox1.Items.Add(Table1.Fields[1].AsString);
Table1.Next;
end;
ComboBox1.ItemIndex:=0;
end;

بابا پس حلقه و حرکت در بین رکورد ها چی میشه!!!!

[MH2538]

سلام
دوست عزیز
شما فقط رک.رد اول رو به کمبوباکس اضافه می کنی.


Combobox1.additem(table1.fieldbyname('name).asstri ng)

به کد آرمان توجه کن.
برای اینکه همه رو به کمبو باکست اضافه کنی باید بین رکورد ها حرکت کنی.
تنها مشکل این روش اینه که وقتی تعداد رکورد هات میره بالا ، پر کردن این کمبو باکس کمی طول میکشه که زیاد جالب نیست.