مثال على ذلك لدي ملف قاعدة بيانات به حقل بالكتب المدرسية لصف دراسي وحقل آخر برقم هذا الكتاب وإذا كنت اعمل على اختار اسماء الكتب اختيار بدلا من الكتابة وطبعا هذا اسهل وادق للمبرمج وللمستخدم عندها فهذا الداله مناسبة جدا لكونها عمومية ويمكن ان اضعها في ملف من النوع unit ومن تم استخدمه في اي فورم احتاج فيه هذا النوع من الاسترجاع
CODE
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;
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;