detectar numeros negativos

[Cosgaya]

como puedo detectar cuando una variable integer ( en delphi 7) contiene un numero negativo ?
gracias

[vtdeleon]

si es menor a 0
if variable < 0 then

[roman]

if Abs(variable) <> variable then

// Saludos

[seoane]

Es curioso, pero en el caso de los double existe el -0.0 :D

[reevil]

Es curioso, pero en el caso de los double existe el -0 :D

:confused: que utilidad tiene eso? :confused:

[seoane]

que utilidad tiene eso?
Ninguna, se debe a que se utiliza un bit para indicar el signo. Asi que puede darse la situacion en que el valor sea 0 pero el bit de signo indique que es negativo. Mas que ser util es molesto pues hay que tenerlo en cuenta a la hora de comprobar si un numero es igual a 0

[roman]

¿Puedes poner un ejemplo de código en dónde esto que mencionas se refleje?

// Saludos

[reevil]

... hay que tenerlo en cuenta a la hora de comprobar si un numero es igual a 0

-0 es distinto de 0 ?? :eek:

[seoane]

Sin ir mas lejos y siguiendo con el tema del hilo, Delphi usa la siguiente funcion para comprobar el signo de un double.


function Sign(const AValue: Double): TValueSign;
begin
if ((PInt64(@AValue)^ and $7FFFFFFFFFFFFFFF) = $0000000000000000) then
Result := ZeroValue
else if ((PInt64(@AValue)^ and $8000000000000000) = $8000000000000000) then
Result := NegativeValue
else
Result := PositiveValue;
end;


En el primer if comprueba si el valor es 0 eliminando primero el bit de signo, de esta manera 0.0 y -0.0 son considerados como un mismo numero.

Sin embargo, estuve haciendo pruebas y parece que delphi ya tiene en cuenta esta eventualidad a la hora de hacer comparaciones. Por ejmplo:


var
d1, d2: double;
begin
d1:= -0.0;
d2:= 0.0;
// Esto nos dice d1 es igual a d2
ShowMessage('(d1 = d2) = ' + BoolToStr(d1 = d2,TRUE));
// Sin embargo si comparamos bit a bit nos dice que no es asi
ShowMessage('(d1 = d2) = ' + BoolToStr(Comparemem(@d1,@d2,Sizeof(double)),TRUE));
end;


Vaya forma de darle vueltas al asunto :D

[roman]

Ok, pero, entonces, si tratamos a los double, como double, 0 y -0 sin lo mismo, ¿verdad?

// Saludos

[seoane]

Ok, pero, entonces, si tratamos a los double, como double, 0 y -0 sin lo mismo, ¿verdad?


Pues si, parece que si ...

[Cosgaya]

Gracias por las respuestas
me quedo con la primera que es la mas facilita
a las otras ya llegare:D :D :D