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]> 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]> 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/
[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/
[As partes desta mensagem que não continham texto foram removidas]
