Peguei o bonde andando, mas para inverter um numero basta multiplicar por -1.
Eduardo Ricardo César Cardoso escreveu: > > Na verdade a intenção é mostrar uma função que sirva tanto para passar > de negativo para positivo quanto o contrário (de positivo para negativo). > > []'s > Ricardo. > > Nivaldo Stainle <[EMAIL PROTECTED] > <mailto:stainle2003%40yahoo.com.br>> escreveu: A Maneira correta e > mais simples é : > x := abs(x), pronto basta isto; na função abaixo se o nro. for > positivo ele se tornará negativo. > > Stainle > > Ricardo César Cardoso <[EMAIL PROTECTED] > <mailto:ricardo_engsoft%40yahoo.com.br>> escreveu: > Simples, amigo: > > Function Inverter(aNumero: Integer) : Integer; > Begin > Result := aNumero * -1; > End; > > Para usar: > > Var > X, Y : Integer; > Begin > X := 10; > Y := Inverter(X); > End; > > Espero que lhe ajude. > []'s > Ricardo. > > Marcelo <[EMAIL PROTECTED] > <mailto:marcelo%40afasistemas.com.br>> escreveu: Amigos da lista. Bom dia. > > Existe alguma forma de se converter algum número negativo em positivo no > Delphi, alguma função que realize esse procedimento? > > Desde já agradeço a colaboração de todos. > > Obrigado. > > __________________________________________________ > Fale com seus amigos de graça com o novo Yahoo! Messenger > http://br.messenger.yahoo.com/ <http://br.messenger.yahoo.com/> > > [As partes desta mensagem que não continham texto foram removidas] > > __________________________________________________ > Fale com seus amigos de graça com o novo Yahoo! Messenger > http://br.messenger.yahoo.com/ <http://br.messenger.yahoo.com/> > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > __________________________________________________ > Fale com seus amigos de graça com o novo Yahoo! Messenger > http://br.messenger.yahoo.com/ <http://br.messenger.yahoo.com/> > > [As partes desta mensagem que não continham texto foram removidas] > > _______________________________________________________ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/