كيف احذف بند السعر من لائجة مقارنة مع لائحة الصنف

[mobile]

السلام عليكم ورحمة الله
كما قال لك الاخ استعمل  قاعدة بيانات خفيفة مثل sqlite هي سهلة خفيفة لن تتعبك ولن تحملها على ظهرك
وان كان لابد ان تستعمل Valuelistditor
هاك مثال عن حساب عمود ال key & value

كود :

//0 for key; //1 for value; procedure TForm2.Button1Click(Sender: TObject); var i,x,y :Integer; begin x:=0;y:=0; for i :=1 to ValueListEditor1.RowCount-1 do  begin    x:=x+StrToInt(ValueListEditor1.Cells[1,i]);    y:=y+StrToInt(ValueListEditor1.Cells[0,i]);  end;  Edit1.Text:=IntToStr(y);  Edit2.Text:=IntToStr(x); end;