+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : لماذا يحذف اخر item من اللائحة (/showthread.php?tid=7416)
لماذا يحذف اخر item من اللائحة - jeanjamil - 19-01-2016
السلام عليكم
كود :
ListBox1.Sorted := true
count := 1
; '' =: Sec_str
for i:=0 to ListBox1.Items.Count-1 do begin
First_str := ListBox1.Items[i
if First_str = Sec_str then
count := count + 1
else
if Sec_str <> '' then begin
''('+ ((ListBox2.Items.Add(Sec_str + ' (' + IntToStr(count)'
count := 1
end;
Sec_str := First_strRE: لماذا يحذف اخر item من اللائحة - S.FATEH - 19-01-2016
السلام عليكم عند الحذف يتغير الترتيب في حلقة for to استخدم downto بدل من ذلك
RE: لماذا يحذف اخر item من اللائحة - jeanjamil - 19-01-2016
(19-01-2016, 08:31 AM)S.FATEH كتب : السلام عليكم عند الحذف يتغير الترتيب في حلقة for to استخدم downto بدل من ذلك
شكرا اخي لكن ما زال يحذف اول بند من اللائحة
RE: لماذا يحذف اخر item من اللائحة - jeanjamil - 23-01-2016
هل من اجراء بديل يمكننا استعماله اي انه اذا وجد بندين متشابهين في اللائحة تطهر بهكذا الشكل( items (2 ...
RE: لماذا يحذف اخر item من اللائحة - محمد عبد العزيز - 23-01-2016
كود :
Var
count,i : integer;
str:string;
begin
ListBox1.Sorted := true;
count := 1;
str:=ListBox1.Items[0];
for i:=1 to ListBox1.Items.Count-1 do
if str = ListBox1.Items[i] then begin
inc(count);
ListBox1.Items[i]:=ListBox1.Items[i]+'('+IntToStr(count)+')';
end else begin
count := 1;
str:=ListBox1.Items[i];
end;
end;RE: لماذا يحذف اخر item من اللائحة - jeanjamil - 24-01-2016
شكرا للجميع هذا جيد لكنه يبقي على ال'item' الاصلي فكيف نلغيه لكي يبقى (items(2 فقط
RE: لماذا يحذف اخر item من اللائحة - محمد عبد العزيز - 25-01-2016
اخي انت قلت
إقتباس :اذا وجد بندين متشابهين في اللائحة تطهر بهكذا الشكل( items (2فهل يحذف item الاول ويسمي الثاني( item (2
RE: لماذا يحذف اخر item من اللائحة - jeanjamil - 25-01-2016
شكرا اخي لفد وجد الحل begin
ListBox1.Sorted := true
count := 1
str2 := '';
for i:=0 to ListBox1.Items.Count-1 do begin
str1 := ListBox1.Items[i
if str1 = str2 then
count := count + 1
else
if str2 <> '' then
begin
ListBox2.Items.Add(str2 + ' ( ' + IntToStr(count
count := 1
end;
str2 := str1
end;
if count > 1 then
ListBox2.Items.Add(str2 + ' ( ' + IntToStr(count
end
RE: لماذا يحذف اخر item من اللائحة - محمد عبد العزيز - 25-01-2016
انتبه للحروف الكبيرة Capital Letters عند المقارنة