التعامل مع العملة في edit

[أبو معاذ]

السلام عليكم و رحمة الله
المطلوب كيف ادخل متغير من نوع عملة في edit تماما مثل ما يفعل dbedit عندما يكون المتغير Currency

و عليكم السلام ورحمة الله وبركاته.
هل تقصد أك تريد إدخال الأرقام و الفاصلة العشرية فقط؟
إذا كان كذلك ، في الحدث OnKeyPress  للمكون edit و لنفرض أن اسمه edit1 ضع الكود التالي :

كود :

if not (Key in ['0'..'9', DecimalSeparator, Chr(VK_BACK), Chr(VK_DELETE)]) then   Key := #0;   if Key = DecimalSeparator then     if Pos(DecimalSeparator, edit1.Text) <> 0 then       Key := #0;