22-09-2013, 02:15 PM
وعليكم السلام
كود :
var Sum:Real;
begin
Table1.First; Sum:=0;
while not Table1.Eof do
begin
Sum:=Sum+Table1.FieldValues['HT'];
Table1.Next;
end;
Label1.Caption:=FloatToStr(Sum);
end;
وتعاونوا على البر و التقوى ، ولا تعاونوا على الاثم والعدوان

