Como saco un símbolo?

[craven]

Hola amigos. La pregunta puede resultar algo tonta, pero llevo intentándo un tiempo y no se cómo poder escribir en un label o en un control de texto el símbolo del infinito... ¿Alguien puede decirme cómo puedo hacerlo? Gracias.

[andres1569]

Hola:
Prueba con el caracter ASCII 165 (Alt + 165) y tipo de letra Symbol.

[marcoszorrilla]

Andrés por un poco me has superado, pero como ya tenía el ejemplo lo añado.


procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Font.Name :='Symbol';
Edit1.Font.Size := 14;
Edit1.Text:=Chr(165);
end;


Un Saludo.

[craven]

Antes de nada, muchas gracias Andres. Pero, ¿cómo podría combinarlo con otros caracteres en un mismo label? Un saludo.

[andres1569]

Hola:

Puedes darle las gracias también a Marcos, :D , je, je

Si te refieres a que al usar letra Symbol, te salen caracteres griegos, esto no se puede evitar, supongo que tendrás que poner un Label al lado, y que parezca que es el mismo (el usuario no se enterará de que has usado 2 labels :)).

[craven]

Muchisímas gracias a los dos. Un saludo. :-D