Converter string em campo dinheiro R$

Delphi

10/12/2006

Boa noite galera, depois de algum tempo estou de volta com mais uma dúvida.
Alguém sabe como faço para converter um campo varchar, deixar ele com formato R$.
Tenho um edit onde recebe o preço e gostaria que no dbgrid ele aparecesse assim R$3,50...Obrigado


Vitor5

Vitor5

Curtidas 0

Respostas

Corcos

Corcos

10/12/2006

Label.Caption := ´R$ ´+ FormatFloat(´0.00´, QryReceitaRECEITA.AsInteger);


depois faça o seu ajuste


GOSTEI 0
Vitor5

Vitor5

10/12/2006

Obrigado por responder , preciso entender melhor. Deixa eu explicar melhor...
tenho um form de pedidos onde coloquei um edit para ser digitado o valor unitário de cada produto, depois um botão onde ele varre o form e atualiza o pedido inserindo o preço.
O que gostaria é o seguinte no evento onexit deste edit ao sair ele fizesse assim
ao digitar 0,3 ele traria assim 0,30 ou 3, ele traria assim 3,00 e assim por diante(Este edit não está ligado a nemhum campo) ele somente atualiza meu dbgrid) Será que é difícil....Obrigado


GOSTEI 0
Vitor5

Vitor5

10/12/2006

Desculpa esqueci de dizer o seguinte:
O campo que ele atualiza na minha tabela Itens (preço) está como VarChar..
Outra pergunta qual o melhor formato para usar num campo preço( decimal, varchar ou outros)?????


GOSTEI 0
Adriano_servitec

Adriano_servitec

10/12/2006

Olah amigo eu estou tentando assim

procedure TForm4.Edit1Exit(Sender: TObject);
begin
if Edit1.Text = ´´ then
    edit1.text := StringReplace(Edit1.text,´.´,´,´,[rfReplaceAll]);
  try
    Edit1.text:=formatfloat(´,0.00´,StrToFloat(Edit1.text)); //muda o ponto e virgula
    //jvEdit1.text:=FloatToStrF(StrToFloat(Edit1.text), ffCurrency, 15, 2); //converte em real R$
  except
    Edit1.SetFocus;
    ShowMessage(´Deve ser informado um valor´);
  end;


Tenta ai pq aqui nao estou conseguindo


GOSTEI 0
Corcos

Corcos

10/12/2006

No meu banco de dados esta assim

DECIMAL(15,2)


GOSTEI 0
POSTAR