المكونات في combobox

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

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

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

[abdelmalek]

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

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

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

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

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

[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; 


بالتوفيق.

[abdelmalek]

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

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

لقد قمت بالتعديل البسيط على برنامجك والان يعمل 100/100
التعديل يتمتل في اضافة السطر التالي فقط :

PHP كود :

listBox1.Clear; 


هدا السطر يقوم بمسح listbox1 قبل عملية الإدراج
حيث أصبح البرنامج هكدا :

PHP كود :

ٍprocedure TForm1.Button1Click(Sender: TObject);
begin
 listBox1.Clear;
 ListBox1.Items.Add(DateToStr(DatetimePicker1.DateTime));
end;

end. 


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

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

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

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

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