سؤال عن عملية الجمع..... :

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

نفرض اسم الجدول tab و اسم الحقل number

Var :

Sum : integer;

begin

sum := 0;

tab.first;

while not tab.eof do

begin

sum := sum + Tabnumber.value ;

tab.next;

end ;

end;

ستتحصل على نتيجة الجمع في المتغير sum و تستطيع بعدها استعمالها او تخزينها او عرضها كما تريد

ارجو ان يكون هذا قصدك

تمنياتي لك بالتوفيق

السلام عليكم

أحب فقط أن اضيف أنه يضفل إستخدام المثود DisableControls عندما تريد القيام بعملية الجمع أو أي عملية أخرى تحتاج التعامل مع عدد كبير من السجلات وهي تزيد من السرعة بشكل ملحوظ وهذا مثال لذلك

procedure TForm1.Button1Click(Sender: TObject);
var
  Total: Double;
begin
  Table1.DisableControls;
  Total := 0;
  Table1.First;
  while not Table1.EOF do
  begin
    Total := Total + Table1['Salary'];
    Table1.Next;
  end;
  Table1.EnableControls;
  ShowMessage(FloatToStr(Total));
end;

بالطبع لا تنسي إستخدام EnableControls عندما تنتهي من عملية الإحتساب

مع تحياتي

والسلام