+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكنن فحص Edit.text اذا كان موجود في Item ComboBox (/showthread.php?tid=4783)
كيف يمكنن فحص Edit.text اذا كان موجود في Item ComboBox - M_Mori2010 - 10-12-2012
السلام عليكم ورحمة الله وبركاته ,,
كيف يمكننا الفحص قبل الاضافة اذا كان محتوى Edit مطابق في Item ComboBox
في حال اذا كان موجود في ComboBox فلا يقوم بالاضافة واذا العكس فيقوم بالاضافة
شكراً لكم
كيف يمكنن فحص Edit.text اذا كان موجود في Item ComboBox - m.rabee - 11-12-2012
وعليكم السلام ورحمة الله وبركاته
كود :
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;