الكود ادناه يعمل على تعبئة مربع tcombobox بقائمة بيانات من ملف محدد
مثال على ذلك لدي ملف قاعدة بيانات به حقل بالكتب المدرسية لصف دراسي وحقل آخر برقم هذا الكتاب وإذا كنت اعمل على اختار اسماء الكتب اختيار بدلا من الكتابة وطبعا هذا اسهل وادق للمبرمج وللمستخدم عندها فهذا الداله مناسبة جدا لكونها عمومية ويمكن ان اضعها في ملف من النوع unit ومن تم استخدمه في اي فورم احتاج فيه هذا النوع من الاسترجاع
procedure full(c:tcombobox;t:ttable;s:string);
begin
with dm do
begin
t.open;
t.first;
c.clear;
while not(t.eof) do
begin
c.items.add(t.fieldbyname(s).value);
t.next;
end;
t.close;
end;
end;الكود التالي مثيل له والاختلاف عند استخدام المكون tquery
procedure fullq(c:tcombobox;t:tquery;s:string); begin with dm do begin t.open; t.first; c.clear; while not(t.eof) do begin c.items.add(t.fieldbyname(s).value); t.next; end; t.close; end; end;
