كيف ازيل رمز العملة $

[أبو معاذ]

السلام عليكم و رحمة الله وبركاته ،
الأمر بسيط جدا

لإلغاء رمز العملة نهائيا

كود :

CurrencyString := ' ';

لتغييرها بعملة أخرى مثال DA

كود :

var amount : Currency; begin amount := 12; // 12 DA // Display with the default currency string ShowMessage('Amount = '+CurrToStrF(amount, ffCurrency, 0)); // Display with the currency shown as a word after the amount CurrencyString := 'DA' ; CurrencyFormat := 4; // 4 means after with a space ShowMessage('Amount = '+CurrToStrF(amount, ffCurrency, 0)); end;

و الموفق. الله