Delphi-PRAXiS

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)

nwnssolutionssoftware 9. Apr 2019 15:30

Auslesen ob Integer Positiv oder Negativ ist
 
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 9. Apr 2019 15:33

AW: Auslesen ob Integer Positiv oder Negativ ist
 
Negative Zahlen sind kleiner als 0.

mkinzler 9. Apr 2019 15:33

AW: Auslesen ob Integer Positiv oder Negativ ist
 
System.Math.Sign() oder halt
Delphi-Quellcode:
if <Wert> < 0

hoika 9. Apr 2019 15:34

AW: Auslesen ob Integer Positiv oder Negativ ist
 
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 9. Apr 2019 15:39

AW: Auslesen ob Integer Positiv oder Negativ ist
 
Wunderbar letzteres hat funktioniert und natürlich
Zitat:

MinuteNegative Zahlen sind kleiner als 0.

Dennis07 11. Apr 2019 19:32

AW: Auslesen ob Integer Positiv oder Negativ ist
 
Delphi-Quellcode:
function IsNegative(const X: Integer): Boolean;
asm
  SHR EAX, 31
end;

TurboMagic 11. Apr 2019 20:43

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

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

AW: Auslesen ob Integer Positiv oder Negativ ist
 
Ich erinnere an den grandiosen Thread:
https://www.delphipraxis.net/123215-...umwandeln.html

DeddyH 12. Apr 2019 09:40

AW: Auslesen ob Integer Positiv oder Negativ ist
 
Ich wusste, dass das irgendwann kommt :lol:

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

Dennis07 15. Apr 2019 05:01

AW: Auslesen ob Integer Positiv oder Negativ ist
 
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:48 Uhr.

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