Auslesen ob Integer Positiv oder Negativ ist

[nwnssolutionssoftware]

Der Title sgat eigentlich schon alles, ich suche eine möglichkeit um herauszufinden ob der Integer positiv oder negativ ist für ein Kontenanalyse Programm. Wenn das Konto im Minus ist soll die Zahl Rot sein wenn nicht Grün. VIeleicht habt ihr ja eine Idee.
Danke im Vorraus.

[Neutral General]

Negative Zahlen sind kleiner als 0.

[mkinzler]

System.Math.Sign() oder halt

Delphi-Quellcode:

if <Wert> < 0

[hoika]

Hallo,

Delphi-Quellcode:

var
  i: Integer;
begin
  i:= -1;

  if<0 then
  begin
    ; kleiner -> rot
  end
  else
  begin
    ; >=0  -> grün
  end;

oder denke ich jetzt zu einfach ?

Wobei 0 nicht grün ist ;)

[nwnssolutionssoftware]

Wunderbar letzteres hat funktioniert und natürlich

Zitat:

MinuteNegative Zahlen sind kleiner als 0.

[Dennis07]

Delphi-Quellcode:

function IsNegative(const X: Integer): Boolean;
asm
  SHR EAX, 31
end;

[TurboMagic]

Zitat:

Zitat von Dennis07 (Beitrag 1430120)

Delphi-Quellcode:

function IsNegative(const X: Integer): Boolean;
asm
  SHR EAX, 31
end;

Jaja, warum einfach, wenn's auch umständlich geht.
Nur Achtung: das funktioniert so nur unter Win32, unter Win64 gibt's nur ganze
asm Funktionen und kein Inline asm...

[alex517]

Zitat:

Zitat von TurboMagic (Beitrag 1430125)

Jaja, warum einfach, wenn's auch umständlich geht.

Da fehlen nur die Ironie-Tags.
Beim gestrigen Stammtisch wurden wurden noch mehr Lösungen dieser Art vorgeschlagen...:-D

[TiGü]

Ich erinnere an den grandiosen Thread:
https://www.delphipraxis.net/123215-...umwandeln.html

[DeddyH]

Ich wusste, dass das irgendwann kommt :lol: