Como eu posso formatar a altura de uma pessoa?

[adler_coelho16]

Bom dia pessoal!

Então, eu gostaria de fazer o seguinte:

Eu tenho uma edit chamada "altura" e quando o usuário colocasse os dados, ao sair da edit ela auto se formatasse através do evento OnExit... Exemplo:

ele coloca: 174

ao sair da edit ela ficava: 1,74

Obrigado pela atenção ;D

[viniciusbmatos]

Algo como

procedure TForm1.Edit1Exit(Sender: TObject);
var
  conv: real;
begin
  val(Edit1.Text, conv);
  if (conv > 100) then
      Edit1.Text := FloatToStrF(conv/100, ffNumber, 0, 2);
end;

Mas por que não usar TFloatSpinEdit?

[adler_coelho16]

Oi Vinicius bmatos, então, o que seria essa função TFloatSpinEdit?

[viniciusbmatos]

Seriam necessários outros componentes, use o TEdit mesmo.

[adler_coelho16]

Então Vinicius, quando eu vou tentar usar o código que você postou acima, acontece o seguinte erro: "not enough actual parameters". O que seria isso?

[adler_coelho16]

Eu estou com outra dúvida também, como eu posso fazer uma pergunta lógica ao sair?

Ao sair eu criei uma Application.messagebox, como eu faço para se na hora que o usuário escolher a opção sim, o programa se fecha e ao escolher não o usuário permanece no programa?