System constants cannot be obtained in real time
Original Reporter info from Mantis: lingling
-
Reporter name:
Original Reporter info from Mantis: lingling
- Reporter name:
Description:
this System constants when change windows control panel set,the was not changing.must close program,then run it agmain, it can get right.but delphi can get Real time acquisition when windows control panel set changed.
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: TMonthNameArray;
LongMonthNames: TMonthNameArray;
ShortDayNames: TWeekNameArray;
LongDayNames: TWeekNameArray;
TwoDigitYearCenturyWindow: Word;
In chinese verion windows ,the code belower was get result is blank:
procedure TForm1.Button1Click(Sender: TObject);
begin
caption:=CurrencyString;
end;
Mantis conversion info:
- Mantis ID: 20517
- OS: windows xp
- OS Build: 5
- Fixed in version: 0.9.31 (SVN)
- Fixed in revision: 35168 (#9550f573)
- Target version: 1.2