Auslesen ob Integer Positiv oder Negativ 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 von Dennis07:

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 von TurboMagic:

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...

[TiGü]

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

[DeddyH]

Ich wusste, dass das irgendwann kommt

[DieDolly]

Zitat von alex517:

Zitat von TurboMagic:

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...

Die einzig wahre Lösung laut deinem Thread:
StrToInt('-' + IntToStr(40))

[Dennis07]

Zitat von TurboMagic:

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?