Mega Code Archive

 

Categories / Delphi / Procedures

 

Getlocaleformatsettings - gets locale values for thread-safe functions sysutils unit

procedure GetLocaleFormatSettings ( LCID : Integer; var FormatSettings : TFormatSettings ) ; Description The GetLocaleFormatSettings procedure gets the LCID Windows locale global variable values into a TFormatSettings record. This record is used by the thread-safe versions of a number of data conversion functions - it must be furnished using this function before the conversion function is invoked. Related commands CurrToStrF Convert a currency value to a string with formatting DateTimeToStr Converts TDateTime date and time values to a string FloatToStrF Convert a floating point value to a string with formatting Format Rich formatting of numbers and text into a string TFormatSettings A record for holding locale values for thread-safe functions Example code : Use of the format settings record var formatSettings : TFormatSettings; begin // Furnish the locale format settings record GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, formatSettings); // And use it in the thread safe form of CurrToStrF ShowMessage('1234.56 formats as = '+ CurrToStrF(1234.56, ffCurrency, 4, formatSettings)); end; Show full unit code 1234.56 formats as £1,234.5600