Auslesen ob Integer Positiv oder Negativ ist

[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))

[freimatz]

Zitat von nwnssolutionssoftware:

Wunderbar letzteres hat funktioniert

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

[TiGü]

Zitat von freimatz:

Zitat von nwnssolutionssoftware:

Wunderbar letzteres hat funktioniert

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

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

[Neutral General]

Zitat von TiGü:

Zitat von freimatz:

Zitat von nwnssolutionssoftware:

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?

[TiGü]

Jetzt wird's kurios.

[Delphi.Narium]

Wieso?

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

[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?