Positive Zahlen in negative umwandeln

[mkinzler]

Schöner Spam-Thread im falschen Bereich
Zahl := StrToFloat( '-' + FloatToStr( Abs(Zahl)));

[Die Muhkuh]

Zitat von mkinzler:

Schöner Spam-Thread im falschen Bereich

Perfekt für Dich

[inherited]

  i := i-(Floor(Power(2, -Integer(i<0)))*2*i); Macht aus i eine negative Zahl

[The Riddler]

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

[Die Muhkuh]

Contest: "Wer schreibt den schlimmsten Code, um aus einer Zahl eine negative zu machen?"

[Meflin]

Dass hier keiner auf
zahl := zahl * (-1)

[shmia]

Zahl := SQRT(SQR(Zahl)) * round(tan(-pi / 4));

[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

[Die Muhkuh]

*Bier aufmach*
*Popcorn hol*

Hat sich gelohnt, dass ich heute doch nicht ins Kino bin

[The Riddler]

Delphi-Quellcode:

temp := zahl;
for i := 0 to temp*2 do
 Zahl := Zahl - i;

Lässt sich noch verbessern schätze ich.