Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   [ActionScript] Betrag einer Zahl bilden (https://www.delphipraxis.net/23238-%5Bactionscript%5D-betrag-einer-zahl-bilden.html)

Meflin 31. Mai 2004 13:02


[ActionScript] Betrag einer Zahl bilden
 
Hi,
wie kann ich den betrag einer zahl mit actionscript ermitteln, oder anders gesagt eine negative in eine positive zahl umwandeln?

*MFG*

ibp 31. Mai 2004 13:22

Re: [ActionScript] Betrag einer Zahl bilden
 
hallo,
betrag einer zahl: zahl:=zahl*sign(zahl); (siehe unit math)
gruß rené

Ultimator 31. Mai 2004 13:23

Re: [ActionScript] Betrag einer Zahl bilden
 
Oder Zahl:=Zahl*(-1)

ibp 31. Mai 2004 13:25

Re: [ActionScript] Betrag einer Zahl bilden
 
@ultimator was ist wenn zahl=1 ist ?....

Ultimator 31. Mai 2004 13:28

Re: [ActionScript] Betrag einer Zahl bilden
 
Öhm, 1*-1 ist -1. Er wollte doch die Zahl mit anderem Vorzeichen, wenn ich das
Zitat:

oder anders gesagt eine negative in eine positive zahl umwandeln
richtig interpreitert habe :gruebel:

czapie 31. Mai 2004 13:30

Re: [ActionScript] Betrag einer Zahl bilden
 
na dann überprüf vorher, ob kleiner null!

ibp 31. Mai 2004 13:32

Re: [ActionScript] Betrag einer Zahl bilden
 
der betrag einer zahl ist der abstand und der ist >=0.
ich denke er meint wenn die zahl halt neg ist soll sie pos sein und wenn pos dann halt bleiben!

@czapi ich denke die function sign() wird das wohl machen!

Meflin 31. Mai 2004 13:36

Re: [ActionScript] Betrag einer Zahl bilden
 
thx, auf das *-1 hätt ich auch irgendwie kommen können (mit überprüfung ob < 0) :roll:

ibp 31. Mai 2004 13:37

Re: [ActionScript] Betrag einer Zahl bilden
 
... du kannst es noch einfacher machen mit abs(Zahl) gibt den absoluten wert zurück! (unit system)

Ultimator 31. Mai 2004 13:38

Re: [ActionScript] Betrag einer Zahl bilden
 
Also so:
Delphi-Quellcode:
procedure TForm1.Click(Sender: TObject);
var Zahl, Betrag:integer;
begin
Zahl:=strtoint(Edit1.Text);
if Zahl <0 then
Betrag:= Zahl* (-1)
else
Betrag:=Zahl;
Müsste so gehen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:23 Uhr.
Seite 1 von 2  1 2      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz