simbolo moneda en formatfloat

[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.