DelphiBasics
GetLocaleFormatSettings
Procedure
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
 Author links

 Buy Website Traffic at
 Buywebsitetrafficexperts.com

 Buy Proxies at
 Buyproxies.io
 
 Download this web site as a Windows program.




 
Example code : Use of the format settings record
// Full Unit code.
// -----------------------------------------------------------
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.
 
unit Unit1;
 
interface
 
uses
  SysUtils,   // Unit containing the GetLocaleFormatSettings command
  Windows,
  Forms, Dialogs;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;
 
var
  
Form1: TForm1;
 
implementation
{$R *.dfm} // Include form definitions
 
procedure TForm1.FormCreate(Sender: TObject);

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;
 
end.
Hide full unit code
   1234.56 formats as ?1,234.5600
 
Delphi Programming Neil Moffatt 2002 - 2017. All rights reserved.  |  Home Page