simbolo moneda en formatfloat

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

[Rofocale]

gracias me sirvio mucho sus respuestas

[LoPiTaL]

Hola de nuevo. Yo soy relativamente nuevo en las APIs de Delphi, por eso componentes del estilo de MaskEdit no suelo usarlos (sencillamente porque desconozco su existencia, o porque cuando se me plantea un problema no pienso en ellos y decido implementarlo yo digamos que "a pelo").
En este caso me parece bastante sencillo, por ejemplo, la solución que comentas tú, de mantener dos variables numéricas y mostrar dos cadenas diferentes de texto.
Para sumar, evidentemente sumas las variables numéricas pero muestras el texto que quieras, con el $,%, €, etc...
Si en algún momento deseases cosas más avanzadas, p. ej. al entrar en el TEdit quitar el texto sobrante para poder escribir sólo el número y al salir reescribirlo todo, te es bastante sencillo hacerlo con las 4 variables anteriores y los eventos que el componente te proporciona. Incluso podrías pensar en derivar del TEdit e implementar éstas en la nueva clase.

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.

No entiendo qué quieres decir con esto... Tienes las variables separadas, puedes darle el formato que quieras:
showmessage('Mi variable que creo que es un dólar $'+inttostr(FVar1+FVar2)+' o podrían ser € no lo sé.....');

Un saludo,
LoPiTaL

[ecfisa]

Empezado por LoPiTaL

No entiendo qué quieres decir con esto... Tienes las variables separadas, puedes darle el formato que quieras:
showmessage('Mi variable que creo que es un dólar $'+inttostr(FVar1+FVar2)+' o podrían ser € no lo sé.....');

Un saludo,
LoPiTaL

Las validaciones de lo que se ingresa en el TEdit. Echo que lamentablemente sucede antes de que puedas hacer:

Código Delphi [-]
    FloatToStr(FVar1 + FVar2);

Saludos.