如何将正数转换为负数？

Question

如何使用Delphi将正整数转换为负数？我知道你可以使用ABS(int)将负数转换为正数,但我需要它将正数转换为负数.

Answer 1

如果你想绝对肯定得到负面结果(或零),请使用

number := -abs(number)

Answer 2

据我所知,没有任何功能.你(们)能做到

if yourvariable > 0 then
    yourvariable := -yourvariable;

Answer 3

呃......太晚了但number := number * -1;也会工作,但是这改变了任何数字的符号,负面变为正面和倒退......为确保负值,请使用@Mef答案

编辑:甚至更晚,但number := 0 - number;也会工作......这也只是反转符号