كيف يمكنن فحص Edit.text اذا كان موجود في Item ComboBox

[M_Mori2010]

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

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

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

شكراً لكم

[m.rabee]

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

كود :

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;