+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف جعل label تعمل بالاعداد العشرية (/showthread.php?tid=6787)
كيف جعل label تعمل بالاعداد العشرية - DOSDOS - 15-02-2015
اخواني لو ممكن حل لهاي مشكلة ما تضبط معي في label انو يظهر الاعداد اللي فيه على شكل عشري مثل : 250.00
كيف جعل label تعمل بالاعداد العشرية - nabilkeb - 15-02-2015
؟؟؟؟؟ أرفق ملف للتوضيح ، أين ظهر لك فيه هذا المشكل
كيف جعل label تعمل بالاعداد العشرية - الكاسر الآخر - 15-02-2015
الحل بسيط
كود :
label1.Caption := formatfloat('####.00',StrToFloat(label1.Caption));بشرط ان يكون label يحتوي على ارقام
كيف جعل label تعمل بالاعداد العشرية - DOSDOS - 15-02-2015
لم تنجح معي هذا مثال للكود الذي اعدل عليه
كود :
Label4.Caption:=floattostr(strtofloat(Label1.Caption) + strtofloat(Label2.Caption) - strtofloat(Label3.Caption));كيف جعل label تعمل بالاعداد العشرية - nabilkeb - 16-02-2015
dosdos كتب :لم تنجح معي هذا مثال للكود الذي اعدل عليه
كود :label4.caption:=floattostr(strtofloat(label1.caption) + strtofloat(label2.caption) - strtofloat(label3.caption));
أنت تحكي عن فورمة لعدد الحقيقي (شكله) إن رقمين بعد الفاصلة
الكود الممنوح صحيح و يفي بغرضك ، عليك بتجريبه إذا كان هذا هو مقصودك
كيف جعل label تعمل بالاعداد العشرية - الكاسر الآخر - 16-02-2015
لقد نسيت أن تكتب جملة FormatFloat
كود :
Label4.Caption:=FormatFloat('###.00',(strtofloat(Label1.Caption) + strtofloat(Label2.Caption) - strtofloat(Label3.Caption)));كيف جعل label تعمل بالاعداد العشرية - DOSDOS - 17-02-2015
الكاسر الآخر كتب :لقد نسيت أن تكتب جملة FormatFloat
اجل فعلت هذا لكن يظهر لي خطا لان Label1 Label2 Label3 ايضا قمت بتحويلهما للعشري ايضا :confused::confused:
كيف جعل label تعمل بالاعداد العشرية - AgroSoft - 17-02-2015
من ناحيتي لم افهم ممكن توضح اكثر او انتظر احد الاخوان لعله فهم ما تريد .... تحياتي.
كيف جعل label تعمل بالاعداد العشرية - الكاسر الآخر - 17-02-2015
ممكن أخي ترسل لي رسالة الخطأ - صورة لو أمكن
لأن الكود صحيح مئة بالمئة
كيف جعل label تعمل بالاعداد العشرية - DOSDOS - 10-03-2015
مرحبا هل يمكن تصحيح لهذا الكود استخدمه حتى احصل على مجموع الضريبة الذي كما نعلم جميعا مجموع الفاتورة * 0.17
كود :
Text20.Text:=floattostr(strtofloat(DataText10.Text) * strtofloat('0.17'));