simbolo moneda en formatfloat

[Rofocale]

eso ya lo habia intentado hacer, pero luego cuando intento calcular ese edit mas otro edit me dice que no es un floating point value... porque esta el simbolo

alguna otra idea mas ? thanks

[Rofocale]

amigos ayudenme es urgente poner este simbolo y no me sale si lo concateno con + al calcula os dos edits me dicen que no es un float

[Rofocale]

nadie ? - me ayudan ?

[ecfisa]

Hola.

Probá si te sirve este código:

Código Delphi [-]
type
  TForm1 = class(TForm)
    Button1: TButton;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure MaskEdit1Exit(Sender: TObject);
    procedure MaskEdit2Exit(Sender: TObject);
  private
    FNum1,FNum2: Double;
  public
  end;

var
  Form1: TForm1;

implementation{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // dado el formato que imponés en la máscara, esta línea es
  // necesaria si tenés ',' como separador decimal
  DecimalSeparator:= '.';
end;

procedure TForm1.MaskEdit1Exit(Sender: TObject);
var
  Cad: string;
begin
  with Sender as TMaskEdit do
   Cad:= Text;
  Delete(Cad,Pos('$',Cad),1);
  Delete(Cad,Pos(',',Cad),1);
  FNum1:= StrToFloat(Cad);
end;

procedure TForm1.MaskEdit2Exit(Sender: TObject);
var
  Cad: string;
begin
  with Sender as TMaskEdit do
   Cad:= Text;
  Delete(Cad,Pos('$',Cad),1);
  Delete(Cad,Pos(',',Cad),1);
  FNum2:= StrToFloat(Cad);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Format('%f %f %f',[FNum1, FNum2, FNum1 + FNum2]));
end;
...

Saludos.

[Rofocale]

gracias

[elarys]

no recuerdo bien, tengo ese codigo en casa,
estoy en el trabajo, pero yo algo parecido a esto.

Código Delphi [-]
  edit1.text := FormatString('m', valor);

asi te muestra directamente decimales y el simbolo monetario,
que tengas por defecto configurado en tu windows

no recuerdo si era m o n...
cuando llegue a casa y verifique el codigo,
te confirmo porque estoy suponiendo

[elarys]

no estaba tan equivocado, mira esta pagina

[ecfisa]

Empezado por elarys

no estaba tan equivocado, mira esta pagina

Hola elarys.

Tu propuesta para mostrar el formato es correctísima al igual que la de LoPiTaL.

Pero el problema que expone Rofocale es:

eso ya lo habia intentado hacer, pero luego cuando intento calcular ese edit mas otro edit me dice que no es un floating point value... porque esta el simbolo

Cualquier formato no numérico que agregues en la propiedad Text del TEdit, la tenés que quitar al intentar convertir a número.
Esto implica que tenés que trabajar el Text del Edit aparejado con una variable numérica si no queres perder el formato.

Sugerí el MaskEdit por que reduce las comprobaciónes de ingreso al ajustarse este a una máscara. Pero puede hacerce con un Edit.

Ejemplo:

Código Delphi [-]
...
procedure TForm1.EditExit(Sender: TObject);
begin
  with (Sender as TEdit) do
  begin
    if Name = 'Edit1' then
     FNumEd1:= StrToFloat(Text)
    else
     FNumEd2:= StrToFloat(Text);
    Text:= Format('%m',[StrToFloat(Text)]);
  end;
end;

procedure TForm1.btSumarClick(Sender: TObject);
begin
  ShowMessage(FloatToStr(FNumEd1+FNumEd2));
end;
...

Ahora bién este código, aparentemente sencillo usando un TEdit, se complicaría bastante con las comprobaciones adicionales
que impone el formato solicitado por Rofocale: '$' delante, signo (-), digitos(0..9), ',' como separador de miles, y '.' de decimales.



Saludos.