如何将正数转换为负数？

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;也可以工作......这也只是反转了符号

Answer 4

让n成为您的号码和n-(n*2) = -n

的公式

Answer 5

简单这就是我认为它可以解决的方式..虽然在python中

{{1}}

如果我错了，请纠正我