المكونات في combobox

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
يمكنك كتابة دالة للفحص، تعيد قيمة True حالة عدم وجود الإدخال ضمن القائمة...
شخصيا أفضل الطريقة التالية:

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
var
  StrList: TStringList;
begin
  StrList := TStringList.Create;
  try
    StrList.Assign(ListBox1.Items);
    StrList.Sorted := True;
    StrList.Duplicates := dupIgnore;
    StrList.Add(DateToStr(DatetimePicker1.DateTime));
    ListBox1.Items.Assign(StrList);
  finally
    StrList.Free;
  end;
end; 


بالتوفيق.