Eu não conheço uma função que faça isso, mas de qualquer forma não é complicado
desenvolver uma.
Veja o exemplo abaixo:
function TForm1.RoundDinamico(VrNumeri : Real; NrRound : Integer) : Integer;
var VrAuxili : Integer;
begin
VrAuxili := StrToInt(FormatFloat('#0', VrNumeri));
VrAuxili := StrToInt(FormatFloat('#0', VrAuxili / NrRound));
Result := VrAuxili * NrRound;
end;
Exemplo de chamada da função:
{Arredondamento de 10 em 10}
EdtNum.Text := IntToStr(RoundDinamico(StrToFloat(EdtNum.Text), 10));
{Arredondamento de 20 em 20}
EdtNum.Text := IntToStr(RoundDinamico(StrToFloat(EdtNum.Text), 20));
Alisson <[EMAIL PROTECTED]> escreveu:
SALVE PROGRAMADORES DA LISTA...
EU GOSTARIA DE SABER COMO EU FAÇO O ARREDONDAMENTO POR TETO EX: (DE 10 EM
10, 20 EM 20 E ASSIM POR DIANTE) POIS EU NÃO SEI COMO FAZER ESSE TIPO DE
ARREDONDAMENTO E NECESSITO FALE-LO....
OU ALGUÉM SABE QUAL A FUNÇÃO QUE FAZ ESSE TIPO DE ARREDONDAMENTO....
ESTOU PRECISANDO MESMO....
FICAREI GRATO SE PUDEREM ME AJUDAR....
[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]
Yahoo! Grupos, um serviço oferecido por:PUBLICIDADE
---------------------------------
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 Termos do Serviço do
Yahoo!.
__________________________________________________
Converse com seus amigos em tempo real com o Yahoo! Messenger
http://br.download.yahoo.com/messenger/
[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
<*> 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
