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:

[DieDolly]

Zitat:

Zitat von alex517 (Beitrag 1430140)

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

Die einzig wahre Lösung laut deinem Thread:

Delphi-Quellcode:

StrToInt('-' + IntToStr(40))

:thumb:

[freimatz]

Zitat:

Zitat von nwnssolutionssoftware (Beitrag 1429919)

Wunderbar letzteres hat funktioniert

Schön. Dann bitte noch "Offene Frage • " wegmachen.

[TiGü]

Zitat:

Zitat von freimatz (Beitrag 1430170)

Zitat:

Zitat von nwnssolutionssoftware (Beitrag 1429919)

Wunderbar letzteres hat funktioniert

Schön. Dann bitte noch "Offene Frage • " wegmachen.

Bei mir steht dran: >>Offene Frage von "freimatz"<<?

[Neutral General]

Zitat:

Zitat von TiGü (Beitrag 1430178)

Zitat:

Zitat von freimatz (Beitrag 1430170)

Zitat:

Zitat von nwnssolutionssoftware (Beitrag 1429919)

Wunderbar letzteres hat funktioniert

Schön. Dann bitte noch "Offene Frage • " wegmachen.

Bei mir steht dran: >>Offene Frage von "freimatz"<<?

Bei mir steht dran: >>Offene Frage von "TiGü"<<?

[haentschman]

Hat hier jeder einer ne offene Frage? :stupid:

[TiGü]

Jetzt wird's kurios.

[Delphi.Narium]

Wieso?

Es ist immer eine offene Frage der Person, die den letzten Post geschrieben hat.

[Dennis07]

Zitat:

Zitat von TurboMagic (Beitrag 1430125)

Nur Achtung: das funktioniert so nur unter Win32, unter Win64 gibt's nur ganze
asm Funktionen und kein Inline asm...

Das ist doch eine ganze ASM-Funktion.
Und wer unter keinen Umständen ASM verwenden will, der kann das ganze auch als einzeiler in Pascal schreiben:

Delphi-Quellcode:

function IsNegative(const X: Integer): Boolean;
begin
  Result := Boolean(X shr 31);
end;

Ist jetzt wirklich kein Hexenwerk. Oder halt...

Delphi-Quellcode:

function IsNegative(const X: Integer): Boolean;
begin
  Result := X < 0;
end;

wie schon etliche male vorgeschlagen wurde.

[Zawuza]

Komplexe Aufgabe, habe richtig lange nach einer Lösung in meinem Mathe-Lehrbuch gesucht, hab danach das programmiert:

Delphi-Quellcode:

function IsNegativ(X: Integer): boolean;
var i, j: integer;    
    LBool: boolean;    
    point: double;
begin  
  point := Random(3000) - 1500;  
  while True do  
  begin    
    point := point - ((sin(point*point)+point)/(2*point*cos(point*point)+1));    
    if (Abs(point) < 0.00001) then    
    begin      
      Result :=  X < Round(point);      
      break;    
    end;  
  end;
end;

Offensichtlich funktioniert das, kann aber unendlich lange dauern... Hoffe, das war (nicht) hilfreich!

[Delphi.Narium]

@Zawuza

Wie kommt man auf so 'ne abgefahrene Idee? :-D

[Dennis07]

Zitat:

Zitat von Delphi.Narium (Beitrag 1430242)

@Zawuza

Wie kommt man auf so 'ne abgefahrene Idee? :-D

Bachelor in theoretischer Informatik, sagt alles... :-D:-D:-D