GETTING LOCALE SETTINGS

[hbez]

Could someone please show me a simple method for retrieving the currency symbol from the Regional Settings on my PC?

 

[towerbase]

Have you tried Google?

I googled on Delphi Regional Settings and found this which seems to be a useful class:

http://www.gtdelphicomponents.gr/?p=66

You can use it something like this:

uses o_RegionalSettings;

procedure TForm1.Button1Click(Sender: TObject);
var
  rs: TgtRegionalSettings;
begin
  rs := TgtRegionalSettings.Create(nil);
  try
    edit1.text := rs.SysCurrencySymbol;
  finally
    rs.Free;
  end;
end;

Andrew
Hampshire, UK

 

[hbez]

After a LONG search I came up with:

procedure TForm1.FormActivate(Sender: TObject);
var
formatSettings : TFormatSettings;
begin
GetLocaleFormatSettings(LOCALE_SYSTEM_DEFAULT, formatSettings);
lbl1.Caption := formatSettings.CurrencyString;
end;

I'll give your suggestion a try as well.

Thanks
Hannes