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

أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

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

كيف يمكننا الفحص قبل الاضافة اذا كان محتوى Edit مطابق في Item ComboBox

في حال اذا كان موجود في ComboBox فلا يقوم بالاضافة واذا العكس فيقوم بالاضافة

شكراً لكم

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

كود :
Function StringInCombo(Source:TComboBox ; Value : String ): Boolean;
 var
 I : Integer;
 Begin
    Result := False;
     for I := 0 to Source.Items.Count - 1  do
     if Source.Items[i] = Value then exit;
    Result := True;
 End;

M_Mori2010

m.rabee