obrigado, ajudou bastante!!
----- Original Message -----
From: "Fabio Giro" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, October 06, 2004 8:58 AM
Subject: Re: [delphi-br] nao quero arredondar
>
>
> Rogerio, faça o teste aí. Crie um form com 2 edit´s e 1 botão.
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> int1 : integer;
> num1 : double;
> num2 : double;
> begin
> num1 := strtofloat(edit1.text);
> num2 := num1 * 1000;
> int1 := trunc(num2);
> num1 := int1 / 10;
> edit2.text := floattostr(num1);
> end;
>
> Espero ter ajudado.
>
> ----- Original Message -----
> From: "Rogerio" <[EMAIL PROTECTED]>
> To: "Delphi Grupo" <[EMAIL PROTECTED]>
> Sent: Tuesday, October 05, 2004 11:05 PM
> Subject: [delphi-br] nao quero arredondar
>
>
>
> Pessoal,
>
> Estou tendo a seguinte dificuldade... estou fazendo um calculo com numeros
> reais... e a maioria dos resultados tem apresentado extensoes muito
> grandes... porem eu necessitava ficar com as 3 primeiras posicoes
> respectivas apos a virgula sem ocorrer o arredondamento...
> Ex. "13.3 / 45 = 0,29555...6" ou "10,3 / 36 = 0,2861...1" onde preciso
> deixar o valor assim : "29,5" ou "28,6" respectivamente, para tal
multiplico
> por 100. Venho utilizando a seguinte formatacao (comando)...
> "FormatFloat('#####00.0',var)".
>
> Estou tendo uma certa dificuldade para resolver este problema, se alguem
> puder dar uma dica/ajuda sou muito grato,
>
> Rogerio.
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
