Function to convert: Neg.Num = 0 Pos.Num = Pos.Num

Xypher

Is there any built in function that would provide me with these results...

A := 5;
B := -5;

A := INT(A);
//A = 5

B := INT(B);
//B = 0

Or can I achieve this by using any other function (or combination thereof)?

[I am wanting to avoid IF .. THEN]

Savatage

if YourValue < 0 then YourValue :=0;

If it's >= zero if will pass by this code anyway.
Why avoid IF?

how about make a text Variable convert your OrigValue to text
strip away any '-' from your new Text Variable.
Convert if back to integer.
now add your OrigValue value to the new Integer.
then divde by 2
I could probably get this in 1 long line of code...
Just kidding I would use a simple if

hmmmm :whistle: ...If doesn't look so bad now 8)

Reinhard

agree with savatage, strange to avoid IF...
BUT... this will work without any if:

A := (A + ABS( A ))/2

Savatage

I forgot about ABS - might come in handy one day! \:D/

at least i got the divide by 2 part correct

David_Singleton

Savatage wrote:

I forgot about ABS - might come in handy one day! \:D/

at least i got the divide by 2 part correct

Harry I was right when some time ago I said that you are slowly coming over to the dark side 8)