Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Разделитель целой и дробной части [D3, D5, Win95/98, NT4]

OlDemon © (2002-07-12 09:35:00)
Уважаемые мастаки.
Подскажите можно ли в проге задать сабж (т.е. точка или запятая) Желательно на время. А еще лучше сделать так, чтобы при выполнении val(a,b,code) она и "." и "," поспринимала как разделитель.
Можно конечно предварительно менять знак, но мне кажется есть выход проще.
Заранее спасибо.

Anatoly Podgoretsky (2002-07-12 10:08:00) [1]
OlDemon © (12.07.02 09:35)
1. Подскажите можно ли в проге задать сабж (т.е. точка или запятая) - можно
2. Желательно на время. - можно на и на время
3. А еще лучше сделать так, чтобы при выполнении val(a,b,code) - а вот это вряд ли, эта функция оставлена для совместимости, и вроде бы глубоко плевала на эти установки, используй более современный StrToInt и т.д.
4. она и "." и "," поспринимала как разделитель. - это в любом случае нет, если только не напишешьсь, свою MultiSeparatorXXX
5. Можно конечно предварительно менять знак, но мне кажется есть выход проще. - наверно придется, но лучше это делать через пункт 4

Kaban (2002-07-12 09:47:00) [2]
Delphi help: Currency and date/time formatting variables

var CurrencyString: string;
var CurrencyFormat: Byte;
var NegCurrFormat: Byte;
var ThousandSeparator: Char;
var DecimalSeparator: Char;
var CurrencyDecimals: Byte;
var DateSeparator: Char;
var ShortDateFormat: string;
var LongDateFormat: string;
var TimeSeparator: Char;
var TimeAMString: string;
var TimePMString: string;
var ShortTimeFormat: string;
var LongTimeFormat: string;
var ShortMonthNames: array[1..12] of string;
var LongMonthNames: array[1..12] of string;
var ShortDayNames: array[1..7] of string;
var LongDayNames: array[1..7] of string;
var SysLocale: TSysLocale;
var EraNames: array[1..7] of string;
var EraYearOffsets: array[1..7] of Integer;
var TwoDigitYearCenturyWindow: Word = 50;
var TListSeparator: Char;

Johnmen (2002-07-12 09:47:00) [3]
DecimalSeparator

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »