Тут не так просто. Если хочется делить на триады, то сначала нужно придумать как
1.123 (или 1,123) - одна тысяча 123 рубля отличить от одной целой 123 тысячных.
------------ Дoбавленo в 15.29:
Нужно брать значение переменной DecimalSeparator из настроек системы.
------------ Дoбавленo в 15.46:
Или в Delphi отсюда.
#pas
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;
Поиск
Друзья
Администрация