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

السلام عليكم ورحمة الله وبركاته
ماهي طريقة جمع كل مافي Item.caption في Edit
جربت هذه لكن لن افلح

PHP كود :
all_user:=all_user+lv1.Items[i].Caption;
se1.Value:=strToint(all_User); 

وشكراً لكم

وعليكم السلام

كود :
var i:integer;
    all_user:String;
begin
for i:=0 to ListView1.Items.Count-1 do
all_user:=all_user+ListView1.Items[i].Caption;
se1.Value:=strToint(all_User);

لكن بهذه الطريقة سوف يقوم بالدمج لا بالجمع مثال 2+2=22
اما اذا كنت تريد الحساب فتبع هذا :

كود :
var i,all_user:integer;
begin
all_user:=0;
for i:=0 to ListView1.Items.Count-1 do
all_user:=all_user+strToint(ListView1.Items[i].Caption);
se1.Value:=all_User

شكرا اخي الكريم الحمدلله تمام جزاك الله كل خير وشكراً ع المعلومة بالفعل استفدت

M_Mori2010

King SofT

M_Mori2010