Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Formato de Label ... (https://www.clubdelphi.com/foros/showthread.php?t=7778)

Slaughter 26-02-2004 11:39:24

Formato de Label ...
 
Hola a todo el foro,

He realizado un conversor de monedas, y cuando obtengo, por ejemplo, de poner 1 euro son: 166.667 pesetas. Pos me pasa lo siguiente: el resultado me sale sin señalar los miles ni nada, como puedo hacer para que me salgan ??

Ejemplo:

Me sale ==> quiero que me salga
166667 ==> 166.667

Muchas gracias de antemano,
Un saludo.

Nuria 26-02-2004 11:50:28

Hola!

Podías poner un poco del código, para ver como haces la asignación.

Saludos!

Nuria 26-02-2004 11:55:09

Porque en vez de utilizar un TLabel , no utilizas TCurrencyEdit que está el la paleta RxControl (si tienes instaladas las RX) y en su propiedad DisplayFormat pones : ,0.00 €;-,0.00 €. Es una sugerencia...

eduarcol 26-02-2004 15:38:40

Puedes utilizar
Label1.Caption := FormatFloat('#,##0.00', nNumero);

En la ayuda de delphi puedes buscar como construir la mascara

Slaughter 26-02-2004 15:52:28

En lugar de Label quería decir Edit ...
 
Holas,

A ver el problema que tengo es que no me sale el resultado como yo quisisera (no la operación sino la forma en que se presenta el resultado).
Creo que lo que dice Eduarcol se acerca a lo que quiero, pero donde meteria esta linea de codigo? (en que evento, ...)

Gracias a los dos (Nuria, Eduarcol)
Un saludo.

eduarcol 26-02-2004 16:34:23

Lo deberas colocar cuando le asignes el valor al TLabel, si nos muestras el codigo donde haces esta asignacion te podria echar una manito

Slaughter 26-02-2004 16:51:48

El código del botón que uso para calcular la conversión es el siguiente:

procedure TForm1.Button1Click(Sender: TObject);
var
valor: variant;
begin
valor:=Edit1.Text;
case Combobox1.ItemIndex of
0 : begin
case Combobox2.ItemIndex of
0 : begin ShowMessage ('Escoja monedas distintas'); end;
1 : begin Edit2.Text:= valor * '0.00601'; end;
2 : begin Edit2.Text:= valor * '0.00532'; end;
end;
End;
1 : begin
case Combobox2.ItemIndex of
0 : begin Edit2.Text:= valor * '166.667'; end;
1 : begin ShowMessage ('Escoja monedas distintas'); end;
end;
End;
End;
end;


A ver si con esto podeis solucionarme el marron,
Asias

eduarcol 26-02-2004 17:12:54

Para empezar te recomiendo utilizar la etiqueta Code para que el codigo quede tabulado.

Ahora el titulo es:
Cita:

Empezado por Slaughter
Formato de un Label


y La asignacion asumo que sea:
Cita:

Empezado por Slaughter
Edit2.Text:= valor * '0.00532'

un Edit no es un Label :)

Pues si esa es la linea donde muestras el valor solo debes hacer este cambio
Código:

Edit2.Text := FormatFloat('#,##0.00', valor * 0.00532);

Slaughter 26-02-2004 17:22:04

Muchas Gracias.

Al final has conseguido solucionarme el problem. Asias por tu gran ayuda !

eduarcol 26-02-2004 17:29:02

Pues para eso estamos, pero la finalidad no es resolver el problema si no que entiendas como se resolvio, asi que si te quedan dudas acerca de la solucion no dudes en preguntar :D


La franja horaria es GMT +2. Ahora son las 16:25:44.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi