Positive Zahlen in negative umwandeln

[The Riddler]

Zitat von The Riddler:

Zahl := StrToInt(StringReplace(IntToStr(Zahl), '-', '', [rfReplaceAll]));

Oder natürlich umgekehrt wie OP es will:

Delphi-Quellcode:

var
  temp: String;
begin
  temp := ' ' + IntToStr(zahl);
  temp := StringReplace(temp, ' ', '-', [rfReplaceAll]);
  Zahl := StrToInt(temp);
// I won imo