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]
