delphi4arab منتديات دلفي للعرب

السلآم عليكم ورحمة الله وبركاته

هذا الكود خاص باللست بوكس
كود رقم 1:

PHP كود :
Form4.lst1.Items.Add(copy(name,1,pos('^',name)-1)); 

كود رقم 2:

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; 

الكود صحيح 100% لكن الليست بوكس لايقوم بأضافة صور جانبية بجانب الاسم
لقد قمت بتحويل الكود الاول من

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)); 

وقد نجح فما هي طريقة تحويل الكود الثاني ؟

وجزاكم الله كل خير

سؤالي بأختصار :هذا الكود لليست بوكس

كود :
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;

كيف يمكنني تحويله لليست فيو ؟

M_Mori2010

M_Mori2010