delphi4arab منتديات دلفي للعرب

نسخة كاملة : تابع يقوم بتفقيط الأرقام باللغة العربية
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
Function JustifyNumber(x : Double; IsMoney:Boolean;Currency :String)
x : الرقم المراد تفقيطه
IsMoney : في حال كان التفقيط لنقود سيظهر نوع العملة في المتحول اللاحق
وإلا ظهر الافتراضي ليرة سورية
Currency :نوع العملة المراد اظهارها بالتفقيط
السلام عليكم 

اي اضع هذا الملف

وكيفية استخدامه
لا يقوم باظهار ما بعد الفاصلة