المكونات في combobox

[سفيان العباسي]

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

قمت بعمل برنامج يقوم بإدراج التاريخ من datetime picker إلى listbox وأبحث عن كود لمنع إدراج نفس التاريخ مرتين
تقبلوا مني فائق الإحترام وجزاكم الله كل الخير

[abdelmalek]

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

اخي سفيان العباسي ممكن ترفق لي المثال لي أتمكن من مساعدتك

[سفيان العباسي]

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

شكرا لإهتمامك أخي العزيز الملف موجود في المرفقات

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
يمكنك كتابة دالة للفحص، تعيد قيمة True حالة عدم وجود الإدخال ضمن القائمة...
شخصيا أفضل الطريقة التالية:
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;

بالتوفيق.

[abdelmalek]

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

لا تقلق اخي نحن هنا

لقد قمت بالتعديل البسيط على برنامجك والان يعمل 100/100
التعديل يتمتل في اضافة السطر التالي فقط :
listBox1.Clear;
هدا السطر يقوم بمسح listbox1 قبل عملية الإدراج
حيث أصبح البرنامج هكدا :
ٍprocedure TForm1.Button1Click(Sender: TObject);
begin
listBox1.Clear;
ListBox1.Items.Add(DateToStr(DatetimePicker1.DateT ime));
end;

end.
ان كنت تريد شيئ اخر وضح فقط ونحن هنا
البرنامج في المرفق

سلام بالتوفيق

[سفيان العباسي]

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

شكرا للإخوة kachwahed و abdelmalek جزيل الشكر حيث تم حل المشكلة
بارك الله فيكم وزادكم علما