-3 in +3 umwandeln

Delphi7Noob · Hält's aus hier Beiträge: 11 D7 Ent.

Hallo,

gibt es eine vorgegebene Funktion in Delphi die z.B. eine -3 in eine +3 umwandelt? Sozusagen das
- durch ein + ersetzt.

Viele Grüsse

AXMD · Verfasst: Fr 08.07.05 19:03

Wie wär's, wenn du einfach mit -1 multiplizierst :roll:

AXMD

Gausi · Verfasst: Fr 08.07.05 19:05

In der Unit math müsste ne Funktion 'abs' oder so drin sein, die den Betrag einer Zahl ermittelt. Ansonsten kannst du dir die auch schnell selbst schreiben:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:

function abs(ein:real):real;
begin
  if ein<0 then
    result:=-ein
  else result:=ein;
end;

_________________
We are, we were and will not be.

Delphi7Noob · Hält's aus hier Beiträge: 11 D7 Ent.

Erstmal vielen Dank für eure schnelle Hilfe.

Die Multiplikation mit -1 ist leider nicht möglich weil die Variable auch ein positiven Wert annehmen kann.

Werds einfach selbst schreiben....Echt dumm das ich da nicht selbst drauf gekommen bin. Naja manchmal hat man halt ein Brett vorm Kopf :wink:

Viele Grüsse

BenBE · Verfasst: Fr 08.07.05 19:12

Abs ist Compiler-Magic und in Zeile 10 von System.pas deklariert :mrgreen:

_________________

Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.

Heiko · Beiträge: 3169 Erhaltene Danke: 11

Oder so hier (brauchst die unit math):

markieren

Delphi-Quelltext

1:	x:=x*Sign(x)

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme