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]
