Positive Zahlen in negative umwandeln

[himitsu]

gleich mal eine neue Funktionalität ausprobieren...

Delphi-Quellcode:

type
  TMyNegateObject = class
  end;

var
  MNO: TMyNegateObject;
  S: String;

begin
  MNO := TMyNegateObject.Create;
  S := PChar($0003374C)^ + MNO.ToString + IntToStr(DieZuNegierendeZahl);
  Delete(S, Ord(PChar($00033756)^) - Ord('0'), Ord(PChar($00033770)^) - Ord('0'));
  MNO.Free;
  DieZuNegierendeZahl := StrToInt(S);

Mindestvoraussetzung: Delphi 2009 und idealer Weise ein WinXP-SP3 (bin mir bei den Adressen nicht so sicher)


oh man, das ist ja zu köstlich hier

PS: cool, den Service von #156 gibt es immernoch