No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Mostrar el Valor Moneda de acuerdo a su formato Regional.

delphi

function GetCurrency(number: PChar): string;
	var
	  tmpStr: string;
	begin
	  SetLength(tmpStr, 255);
	  GetCurrencyFormat(LOCALE_SYSTEM_DEFAULT, 0, number, nil, PChar(tmpStr),
	Length(tmpStr));
	  Result := tmpStr;
	end;

Ejemplo de uso:

delphi

procedure TForm1.Button1Click(Sender: TObject);
	begin
	  Application.MessageBox(PChar(GetCurrency(PChar(Edit1.Text))), '', MB_OK);
	end;

Saludos!