Клуб программистов

    Переменная CurrencyFormat на самом деле перечисление. Значения, которые она может принимать, определяют положение строки с символом валюты в функциях вывода на экран денежных величин, таких как CurrToStr.

    Допустимыми значениями являются:

0	= Перед суммой
1	= После суммы
2	= Перед суммой с пробелом
3	= После суммы с пробелом

var
   amount : Currency;
   i : Byte;

begin
   amount := 12; // 12 pounds

   // Display the amount using all 4 currency formats
   for i := 0 to 3 do
   begin
     CurrencyFormat := i;
     ShowMessage('Format '+IntToStr(i)+' = '+CurrToStrF(amount, ffCurrency, 0));
   end;
end;

Format 0 = ?12
Format 1 = 12?
Format 2 = ? 12
Format 3 = 12 ?