11-12-2012, 11:10 PM
وعليكم السلام ورحمة الله وبركاته
كود :
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;