+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف استخدم ListView بدلا من ListBox (/showthread.php?tid=4339)
كيف استخدم ListView بدلا من ListBox - M_Mori2010 - 09-07-2012
السلآم عليكم ورحمة الله وبركاته
هذا الكود خاص باللست بوكس
كود رقم 1:
PHP كود :
Form4.lst1.Items.Add(copy(name,1,pos('^',name)-1));
PHP كود :
begin
n:= pos('@',str1);
name:=copy(str1,n+1,length(str1)-n);
for i:=0 to Form4.lst1.items.count-1 do
begin
if Form4.lst1.items.strings[i]=name then
Form4.lst1.items.delete(i);
end;
end;
لقد قمت بتحويل الكود الاول من
PHP كود :
Form4.lst1.Items.Add(copy(name,1,pos('^',name)-1));
PHP كود :
with Form2.lv1.Items.Add do begin
Caption:=(copy(name,1,pos('^',name)-1));
وجزاكم الله كل خير
كيف استخدم ListView بدلا من ListBox - M_Mori2010 - 10-07-2012
سؤالي بأختصار :هذا الكود لليست بوكس
كود :
name:=copy(str1,n+1,length(str1)-n);
for i:=0 to Form4.lst1.items.count-1 do
begin
if Form4.lst1.items.strings[i]=name then
Form4.lst1.items.delete(i);
end;