السلام عليكم و رحمة الله وبركاته
قمت بعمل برنامج يقوم بإدراج التاريخ من datetime picker إلى listbox وأبحث عن كود لمنع إدراج نفس التاريخ مرتين
تقبلوا مني فائق الإحترام وجزاكم الله كل الخير
السلام عليكم ورحمة الله وبركاته
اخي سفيان العباسي ممكن ترفق لي المثال لي أتمكن من مساعدتك
السلام عليكم ورحمة الله وبركاته
شكرا لإهتمامك أخي العزيز الملف موجود في المرفقات
وعليكم السلام ورحمة الله وبركاته
يمكنك كتابة دالة للفحص، تعيد قيمة 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;
السلام عليكم ورحمة الله وبركاته
لا تقلق اخي نحن هنا
لقد قمت بالتعديل البسيط على برنامجك والان يعمل 100/100
التعديل يتمتل في اضافة السطر التالي فقط :
هدا السطر يقوم بمسح listbox1 قبل عملية الإدراج
حيث أصبح البرنامج هكدا :
PHP كود :
ٍprocedure TForm1.Button1Click(Sender: TObject);
begin
listBox1.Clear;
ListBox1.Items.Add(DateToStr(DatetimePicker1.DateTime));
end;
end.
ان كنت تريد شيئ اخر وضح فقط ونحن هنا
البرنامج في المرفق
سلام بالتوفيق
السلام عليكم و رحمة الله وبركاته
شكرا للإخوة kachwahed و abdelmalek جزيل الشكر حيث تم حل المشكلة
بارك الله فيكم وزادكم علما