Acrescentar ",00" automaticamente

[LGMSammy]

Boa tarde.

 

Tenho um form de cadastros de produtos. No DBEdit de preços, queria que o mesmo adicionasse ",00" ao final do preço, mas apenas no caso do valor do centavo não for especificado.

 

Por exemplo:

 

Se digitarmos "10,50", ele não fará nada;

 

Mas se digiramos apenas "9", ele irá transformar em "9,00";

 

Estou com problemas para transformar esta sentença em pascal...

 

Obrigado desde já.

 

 

[New Nerd]

Oi,

 

Fiz um exemplo no Delphi 7 veja:

procedure TForm1.Button1Click(Sender: TObject);beginif pos(',', edit1.text)>0 then begin     //Verifica se existe virgula no texto do edit1end                          //se existe não faz nadaelse beginedit1.Text := edit1.Text + ',00';         //Se não existe inclui a virgula e dois zeros.endend;

Boa Sorte!

 

Qualquer dúvida só falar!

[LGMSammy]

@New Nerd

 

Funcionou perfeitamente. Muito obrigado pela resposta.

 

Não conhecia esse "pos" que foi usado antes do if, foi estudar mais fundo essas coisas simples...

 

Usei o comando no "OnExit" do Edit, assim quando saio ele adiciona o valor automaticamente.

 

Valeu!