tudo bem, entendo a utilidade da função, mas a pergunta foi :
como transformar um número negativo em positivo;
o ABS() é genérico se for negativo fica positivo e se for positivo em nada se
altera, não tem a necessidade de mais de uma linha de código.
abraços
Stainle
Eduardo <[EMAIL PROTECTED]> escreveu:
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/
__________________________________________________
Fale com seus amigos de graça com o novo Yahoo! Messenger
http://br.messenger.yahoo.com/
[As partes desta mensagem que não continham texto foram removidas]
