Thema: Delphi Positive Zahlen in negative umwandeln

Einzelnen Beitrag anzeigen

grizzly

Registriert seit: 10. Dez 2004
150 Beiträge
 
Delphi XE4 Professional
 
#142

Re: Positive Zahlen in negative umwandeln

  Alt 31. Okt 2008, 15:55
Langsam kann ich auch!

markieren
Delphi-Quellcode:
FUNCTION MakeNeg(i: integer): integer;
BEGIN
  Randomize;
  i := abs(i);
  REPEAT
    Result := -Random(MaxLongint);
  UNTIL i+Result = 0;
END;
Oder hatten wir den schon? Ich verliere den Überblick...

Gruß
Michael