بسم الله الرحمن الرحيم
كم اعلم مآسات البعض منا في حذف الأشياء المتكرره في الكائن ListBox على العموم ممكن يساعدكم هذا الكود في العملية
فاليكم الكود :
var
a,b:integer;
begin
for a:=0 to listbox1.Items.Count-1 do begin
for b:= a+1 to listbox1.Items.Count-1 do begin
if listbox1.Items.Strings[a]=listbox1.Items.Strings then begin
listbox1.Items.Delete(b);
break;
end;
end;
end;
طبعاً عند وجود اي ملاحظات ارجوا منكم اخباري
لأني قمت بكتابة هذا الكود وانا مستعجل
وتقبلوا اطيب تحياتي اخوكم SUM
ماعليش كان فيه خطأ في هذا الكود وذلك في عملية For
على العموم اليكم الكود الصحيح
var
a,b:integer;
begin
for a:=listbox1.Items.Count-1 downto 0 do begin
for b:= a+1 to listbox1.Items.Count-1 do begin
if listbox1.Items.Strings[a]=listbox1.Items.Strings then begin
listbox1.Items.Delete(b);
break;
end;
end;
end;
وتقبلوا اطيب تحياتي اخوكم SUM
اخي العزيز سم .
ممكن توضحلي كيف ممكن اجعل for تزيد بمقدار 2 او 1
يعني متلا
لو اريد اطبع الاعداد الزوجية فقط باستخدام for .
وشكرا
اخي العزيز Madi
ممكن توضح قصدك شوي
هل تريد ان تحول العملية من تصاعدية الى تنازليه
او العكس او ماذا تقصد !!!!!!!!!
وتقبل تحياتي اخوك SUM
هذا الموضوع مغلق.