delphi4arab منتديات دلفي للعرب

السلام عليكم ورحمة الله وبركاته
:bye1::bye1::bye1::bye1:
اولا اتقدم بجزيل الشكر للقائمين على هذا المنتدى الرئع
والذي أفادني كثيرا
كما هو موضح في العنوان كيف ا املئ مكون ComboBox
بمحتوى ناتج ال ADOQuery من الحقل Mat_ch

لقد مشاركة أحد الأخوة لكن لم أفهمها جيدا :oops:
http://www.delphi4arab.net/forum/showthread.php?tid=982

جزاكم الله كل الخير

السلام عليكم

إقتباس :لم أفهمها جيدا

ما الذي لم تفهمه ؟
ما قام به هو أخذ ناتج استعلام SQL
والقيام بحلقة لاضافة الحقل بمكون الComboBox

السلام عليكم ورحمة الله وبركاته

أخي بارك الله فيك على الرد

كود :
procedure fillcombo(cmb:tcombobox;q:tibquery ; tbl,fld:string);
begin
q.SQL.Clear;
q.SQL.Add('select * from "'+tbl+'"');
q.Open;
if q.RecordCount<>0 then
  begin
    cmb.Items.Clear;
    Cmb.Text:='';
    q.First;
    while not q.Eof do
    begin
      Cmb.Items.Add(trim(q[fld]));
      q.Next;
    end;
  end;
end;

لم أفهم :
fillcombo
هل هذا يعني أنه قام بعمل procedure
خاص به .
tbl : هل يقصد بها جدول أم ماذا .
وماذا يعني بهذا fld.

أخي أنا مبتدأ في الدلفي لكن الحمد لله بفضل الله عزوجل ثم هذا المنتدى انااتحسن شيئ فشيئ

جزاك الله كل خير

وعليكم السلام ورحمة الله وبركاته

إقتباس :هل هذا يعني أنه قام بعمل procedure

أجل، هو اسم الإجراء

إقتباس :tbl : هل يقصد بها جدول أم ماذا .
وماذا يعني بهذا fld.

هي معلمات (Parameters) هنا:

كود :
procedure fillcombo(cmb:tcombobox;q:tibquery ; [color=Blue]tbl[/color],[color=Blue]fld[/color]:[color=Red]string[/color]);

انصحك بمتعابعة دروس دورة دلفي للعرب، ودروس دورة الأخ omf_12000
ولا تنسى البحث قبل طرح السؤال Smile

بالتوفيق.

السلام عليكم شباب
بارك الله فيكم نجح الأمر
جزاكم الله كل خير :monster1:

saber-bsa

محمد عبد العزيز

saber-bsa

kachwahed

saber-bsa