Negativ-Zahl umwandeln in Positiv-Zahl

[Eppos]

Hallo zusammen,

folgendes Problem:

Ich habe ein Wert z.B. -1.000,00 Euro
Diesen möchte ich umwandeln in diesen Wert: 1.000,00 Euro

D.h. ich suche eine Funktion, die eine negativ-Zahl in eine Positiv-Zahl schreibt.

Hat Delphi so etwas schon?!

Vielen Dank,

Eppos

[Klaus01]

Hallo,

das sollte mit abs gehen.

Grüße
Klaus

[Aurelius]

Delphi-Quellcode:

if Zahl < 0 then
  Zahl := Zahl * -1

:stupid:

[Muetze1]

Zum einen Klaus01 seine Lösung ist vollkommen richtig und die Logik ermittelt noch diese Lösung:

Delphi-Quellcode:

if Wert < 0 then
  Wert := -Wert;

@xX0815Xx: Eine Multiplikation ist deutlich aufwendiger...

[Eppos]

abs?!
wo finde ich die Funktion

[Aurelius]

@ Eppos: DelphiHilfe öffnen und abs eintippen --> System.

@ Muetze: hast ja recht :D

[Eppos]

ok, danke alles klaro,

habs am anfang nicht gefunden, hat er mir irgendwie nicht angezeigt, aber jetzt! :-)

[Laufi]

Hallo

Was auch noch gut ist ist:

Delphi-Quellcode:

asm
  NEG Wert
end;

Liebe Grüsse
Laufi

[Hador]

Zitat:

Zitat von Laufi

Was auch noch gut ist ist:

Delphi-Quellcode:

asm
  NEG Wert
end;

Das macht aber nicht das selbe wie abs(wert).
Wenn man da eine positive Zahl reinpacke, kommt sie negativ raus.
So etwas wie abs() wäre:

Delphi-Quellcode:

asm
  CMP wert, 0
  JG @ENDE
  NEG wert
  @ENDE:
end;

[Laufi]

ach so ok will er denn auch positive zahlen damit verwenden? :?

Aber dann sollte man es besser so machen nicht mit einen Jump!!!!! :shock:

Delphi-Quellcode:

asm
  MOV Temp, Wert
  NEG Temp
  CMOVNS Wert, Temp
end

Liebe grüsse
Laufi