12-06-2012, 05:32 PM
السلام عليكم
نفرض اننا اضفنا تسجيلة الى جدول برقم 0.25 و 0.50 في حقلين على التوالي
عندما اقوم بجمع الحقلين واظهار النتيجة في edit1 و edit2 تظهر بالشكل الاتي
25 و 50 ولا تظهر 0.25 و 0.5
نفرض اننا اضفنا تسجيلة الى جدول برقم 0.25 و 0.50 في حقلين على التوالي
عندما اقوم بجمع الحقلين واظهار النتيجة في edit1 و edit2 تظهر بالشكل الاتي
25 و 50 ولا تظهر 0.25 و 0.5
كود :
procedure TForm1.button1Click(Sender: TObject);
var
a,b:real;
begin
table1.first;
a :=a+table1.FieldValues('Field1');
b :=b+ table1.FieldValues('Field2');
table1.next;
edit1.text;=formatfloat('0.00',a);
edit2.text;=formatfloat('0.00',b);
end;