Boa tarde Amigo, não sei se voce conhece, mas o JVEDIT é a melhor maneira de trabalhar com valores, se voce nao conhece mas quer experimentar é uma boa, resolveria todos seus problemas qto a formatação de valores ... precisando eu tenho .. manda se e-mail e eu te mando ...
--- Em qua, 29/7/09, roger_0687 <roger_0...@yahoo.com.br> escreveu: De: roger_0687 <roger_0...@yahoo.com.br> Assunto: [delphi-br] Re: comparação de valores comDisplayformat Para: delphi-br@yahoogrupos.com.br Data: Quarta-feira, 29 de Julho de 2009, 10:53 Bom dia amigo, Se a intenção é capturar como Float, primeiro vc vai ter que matar os caracteres que não são algarismo: Código # var //Crie uma variável String para armazenar os valores formatados TempString : String; begin //Capture o valor do dbedit TempString := SEUDBEDIT1.Text; //Deleta o 'R' Delete(TempString, Pos('R',TempStri ng),1); //Deleta o '$' Delete(TempString, Pos('$',TempStri ng),1); //Joga o valor sem nenhum comprometimento para a var Double VARDOUBLE1 := StrToFloat(TempStri ng); TempString := SEUDBEDIT2.Text; Delete(TempString, Pos('R',TempStri ng),1); Delete(TempString, Pos('$',TempStri ng),1); VARDOUBLE2 := StrToFloat(TempStri ng); end; # Detalhe, funciona para os valores com R$ e sem R$, não precisa se preocupar com o espaço que sobra entre o R$ e o algarismo, no STRTOFLOAT ele ignora o espaço, a única preocupação será se você estiver utilizando na formatação o '.' para separar o milhar, ai precisa colocar mais essa linha: Código # Delete(TempString, Pos('.',TempStri ng),1); # Abraços, espero ter ajudado. -- Antonio Rogério Rodrigues Guarizzo - Mercedes-Benz - 21077000 Suporte Técnico Fone: (19) - 3817-9900 - R9913 e-mail: roger_0...@yahoo. com.br --- Em delphi...@yahoogrup os.com.br, Hugo Vieira <hugovieira_ @...> escreveu > > > Bom dia amigos, > > > > Minha duvida é a seguinte: > > > > Tenho em um form com dois dbedits(preço de custo e preço de venda) pela qual > alterei a propriedade do display format para aparecer os valores com R$,por > exemplo, R$ 10,00 ou R$12,50 > > > > Antes de eu aplicar a mudança no display format , eu fazia uma comparação > entre os dois campos com uma função simples, de duas variaveis recebendo > StrToFLoat e comparava os valores. A função capava o dbedit.text, que neste > caso era os valores digitados. > > > > > > So que agora nao sao somente valores, tem mais o R$, o que nao converte para > float, dando erro. > > > > Como faria para captar somente os valores e compara-los indepedente de ter ou > nao o displayformat alterado? > > > > Grato! > > > > Hugo > > > > > > > > > > > > > ____________ _________ _________ _________ _________ _________ _ > Compartilhe os momentos mais importantes da sua vida. > http://www.microsof t.com/brasil/ windows/windowsl ive/products/ > photos-share. aspx?tab= 1 > > [As partes desta mensagem que não continham texto foram removidas] > ____________________________________________________________________________________ Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]