edit لاتقبل 0.25 من جدول وتظهر 25 . لمادا؟

[boughagha]

السلام عليكم
نفرض اننا اضفنا تسجيلة الى جدول برقم 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;

[hamou1982]

السلام عليكم ورحمة الله تعالى وبركاته
أولا لديك أخطاء في تحرير الكود
تم تصليحه

كود :

procedure TForm1.Button1Click(Sender: TObject);
var
a,b:real;
begin
T1.first;
a :=a+ T1.FieldValues['Field1'];
b :=b+ T1.FieldValues['Field2'];
T1.next;
edit1.text:=formatfloat('0.00',a);
edit2.text:=formatfloat('0.00',b);
end;

ثانيًا
الأمر يتوقف على نوع الحقل في قاعدة البيانات
يجب عليك ان تضع في خصائص الحقل في Displayformat
هذا الكود

PHP كود :

##,##0.00 


وبالتوفيق