+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : edit لاتقبل 0.25 من جدول وتظهر 25 . لمادا؟ (/showthread.php?tid=4271)
edit لاتقبل 0.25 من جدول وتظهر 25 . لمادا؟ - boughagha - 12-06-2012
السلام عليكم
نفرض اننا اضفنا تسجيلة الى جدول برقم 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;edit لاتقبل 0.25 من جدول وتظهر 25 . لمادا؟ - hamou1982 - 12-06-2012
السلام عليكم ورحمة الله تعالى وبركاته
أولا لديك أخطاء في تحرير الكود
تم تصليحه
كود :
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