+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : المكونات في combobox (/showthread.php?tid=1748)
المكونات في combobox - سفيان العباسي - 04-03-2010
السلام عليكم و رحمة الله وبركاته
قمت بعمل برنامج يقوم بإدراج التاريخ من datetime picker إلى listbox وأبحث عن كود لمنع إدراج نفس التاريخ مرتين
تقبلوا مني فائق الإحترام وجزاكم الله كل الخير
المكونات في combobox - abdelmalek - 05-03-2010
السلام عليكم ورحمة الله وبركاته
اخي سفيان العباسي ممكن ترفق لي المثال لي أتمكن من مساعدتك
المكونات في combobox - سفيان العباسي - 05-03-2010
السلام عليكم ورحمة الله وبركاته
شكرا لإهتمامك أخي العزيز الملف موجود في المرفقات
المكونات في combobox - kachwahed - 05-03-2010
وعليكم السلام ورحمة الله وبركاته
يمكنك كتابة دالة للفحص، تعيد قيمة 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;
المكونات في combobox - abdelmalek - 05-03-2010
السلام عليكم ورحمة الله وبركاته
لا تقلق اخي نحن هنا
لقد قمت بالتعديل البسيط على برنامجك والان يعمل 100/100
التعديل يتمتل في اضافة السطر التالي فقط :
PHP كود :
listBox1.Clear;
حيث أصبح البرنامج هكدا :
PHP كود :
ٍprocedure TForm1.Button1Click(Sender: TObject);
begin
listBox1.Clear;
ListBox1.Items.Add(DateToStr(DatetimePicker1.DateTime));
end;
end.
البرنامج في المرفق
سلام بالتوفيق
المكونات في combobox - سفيان العباسي - 05-03-2010
السلام عليكم و رحمة الله وبركاته
شكرا للإخوة kachwahed و abdelmalek جزيل الشكر حيث تم حل المشكلة
بارك الله فيكم وزادكم علما