Описание

type TFormatSettings = record
CurrencyFormat : Byte;
NegCurrFormat : Byte;
ThousandSeparator : Char;
DecimalSeparator : Char;
CurrencyDecimals : Byte;
DateSeparator : Char;
TimeSeparator : Char;
ListSeparator : Char;
CurrencyString : string;
ShortDateFormat : string;
LongDateFormat : string;
TimeAMString : string;
TimePMString : string;
ShortTimeFormat : string;
LongTimeFormat : string;
ShortMonthNames : array[1..12] of string;
LongMonthNames : array[1..12] of string;
ShortDayNames : array[1..7] of string;
LongDayNames : array[1..7] of string;
TwoDigitYearCenturyWindow : Word;
end;

Запись TFormatSettings используется для содержания глобальной переменной региона Windows для использования множеством thread-safe версиями функций преобразования данных.

Она должна, задана перед вызовом функции, которая использует её.

Пример кода

var
formatSettings : TFormatSettings;

begin
// Обеспечение региональной записи настройки параметров формата
GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, formatSettings);

// И использование его в безопасной форме потока CurrToStrF
ShowMessage('1234.56 форматируется как = '+
CurrToStrF(1234.56, ffCurrency, 4, formatSettings));
end;

1234.56 formats as $1,234.5600

Примечание