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
<*> 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
