problemas com convers�o de string para Real

Question

bom dia, � o seguinte....eu uso delphi+zeos+postgres, eu tenho um panel onde vai um valor tipo 3,5 ent�o eu passo ele por uma convers�o onde ele fica 3,50 mas quando tento converter este caption do panel de 3,50 string para 3.50 real ele fica sempre 0, alguem ja passou por isso e pode me dar uma m�o??

anderson

Douglasaltonia · Answer

andersonTentou:  Panel1.Caption := FormatFloat(�#0.00�,3.5);ou  Panel1.Caption := FormatFloat(�0.00�,StrtoFloat(Label1.Caption));vlw...

Acror · Answer

Quando usamos o formatfloat ele volta com a virgula.

Vc ter� que fazer uma fun��o para retornar uma string com ponto

function TForm1.ponto(valor:double):string;
var
s : string;
begin
s := formatfloat(�0.00�,valor);
while Pos(�,�, S) > 0 do
S[Pos(�,�, S)] := �.�;
result := s;
end;

usar:

panel1.caption := ponto(3,5);

Andersonscinfo · Answer

amigos...muito obrigado por se prontificarem....eu testei das duas formas e n�o quiz funcionar....ent�o pequei e tentei direto pra ver qual era o problema....
fiz assim
DM_dd_psqlQry_osvalor_servico.Value:=11;
DM_dd_psqlQry_osvalor_servico.Value:=11.00;

de nem umas das formas ele salvou no banco...todos os outros dados foram salvos....menos o campo do valor....que coisa estranha, isso sendo que na mesma procedure eu tenho depois disso um insert no contas a receber que pega o valor do mesmo caption e ele insere blz....menos ai...que estranho...vou fazer outra qry pra ver se funciona

at� mais

Andersonscinfo · Answer

ja tentei de tudo que foi geito, at� ja coloquei dbedit e escrevi dentro do dbedit o valor e mesmo assim n�o salva no banco....ele salvou uma via sql

Qry_geral.Close;
Qry_geral.SQL.Clear;
Qry_geral.SQL.Add(�UPDATE public.�tb_os� SET valor_servico=��+p_serv.capition+��, valor_total=��+p_total.capition+�� WHERE codigo=��+Qry_oscodigo.AsString+��;�);
Qry_geral.Open;

desta forma ele salvou...mas deu erro na tal virgula e quando eu fiz dai a convers�o para ficar com o . no lugar da virgula, ele faz a convers�o...mas ai n�o salva....que loucura....se alguem ai usa os mesmo componentes que eu, eu mando os fontes e tbm o banco de dados pra analizarem....porque o trem ta dificel....

Anderson

Douglasaltonia · Answer

vamos entender...vc quer salvar �11.00� e n�o �11�, � isso???...

Acror · Answer

Bem vamos detalharUm componente panel vc usa o caption que � stringSe vc usar a fun��o que te passei e que retorna string, tem que funcionar.Para gravar no campo como 11.00 tem que ser um campo string. se vc est� querendo salvar o que est� dentro do panel para o banco com a virgula vc tem que fazer assimp_serv.caption = �11,00�;p_total.caption = �15,00�;Qry_geral.Close; Qry_geral.SQL.Clear; Qry_geral.SQL.Add(�UPDATE public.�tb_os� SET valor_servico=�+ponto(strtofloat(p_serv.capition))+�, valor_total=�+ponto(strtofloat(p_total.capition))+� WHERE codigo=�+Qry_oscodigo.AsString;Qry_geral.Open;Assim funciona pq se vc usar virgula no SQL acusa erro e tem que usar o ponto no lugar da virgula.Eu uso essa fun��o direto pelo mesmo motivoNeste caso o banco vai receber o seguinte UPDATE public.�tb_os� SET valor_servico=11.00 , valor_total=15.00WHERE codigo=�1�Eu recomento que vc use o quotedstr() em vez das ���. Fica mais limpo.se seu campo codigo for inteiro n�o precisa das ��.N�o sei no postgres mas que eu saiba vc n�o precisa colocar o ; dentro do SQL. Eu uso o Zeos e n�o coloco...

F�rum problemas com convers�o de string para Real #348971