Formato de Label ...

[Slaughter]

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]

Hola!

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

Saludos!

[Nuria]

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]]

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

En la ayuda de delphi puedes buscar como construir la mascara

[Slaughter]

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]]

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]

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]]

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

Ahora el titulo es:

Empezado por Slaughter

Formato de un Label

y La asignacion asumo que sea:

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

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

[Slaughter]

Muchas Gracias.

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

[[eduarcol]]

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