09-07-2012, 03:20 AM
السلآم عليكم ورحمة الله وبركاته
هذا الكود خاص باللست بوكس
كود رقم 1:
كود رقم 2:
الكود صحيح 100% لكن الليست بوكس لايقوم بأضافة صور جانبية بجانب الاسم
لقد قمت بتحويل الكود الاول من
الى
وقد نجح فما هي طريقة تحويل الكود الثاني ؟
وجزاكم الله كل خير
هذا الكود خاص باللست بوكس
كود رقم 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));
وجزاكم الله كل خير
اللهمّ إنّي ظلمت نفسي ظلماً كثيراً ولا يغفر الذّنوب إلا أنت
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم