Delphi-PRAXiS
Seite 2 von 3     12 3   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Delphi Auslesen ob Integer Positiv oder Negativ ist (https://www.delphipraxis.net/200322-auslesen-ob-integer-positiv-oder-negativ-ist.html)

DieDolly 12. Apr 2019 13:29

AW: Auslesen ob Integer Positiv oder Negativ ist
 
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 12. Apr 2019 14:10

AW: Auslesen ob Integer Positiv oder Negativ ist
 
Zitat:

Zitat von nwnssolutionssoftware (Beitrag 1429919)
Wunderbar letzteres hat funktioniert

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

TiGü 12. Apr 2019 16:05

AW: Auslesen ob Integer Positiv oder Negativ ist
 
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 12. Apr 2019 16:30

AW: Auslesen ob Integer Positiv oder Negativ ist
 
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 12. Apr 2019 16:42

AW: Auslesen ob Integer Positiv oder Negativ ist
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hat hier jeder einer ne offene Frage? :stupid:

TiGü 12. Apr 2019 18:19

AW: Auslesen ob Integer Positiv oder Negativ ist
 
Jetzt wird's kurios.

Delphi.Narium 12. Apr 2019 18:26

AW: Auslesen ob Integer Positiv oder Negativ ist
 
Wieso?

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

Dennis07 12. Apr 2019 23:45

AW: Auslesen ob Integer Positiv oder Negativ ist
 
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 13. Apr 2019 17:31

AW: Auslesen ob Integer Positiv oder Negativ ist
 
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 13. Apr 2019 18:27

AW: Auslesen ob Integer Positiv oder Negativ ist
 
@Zawuza

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


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:37 Uhr.
Seite 2 von 3     12 3   

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