AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Delphi Auslesen ob Integer Positiv oder Negativ ist

Auslesen ob Integer Positiv oder Negativ ist

Ein Thema von nwnssolutionssoftware · begonnen am 9. Apr 2019 · letzter Beitrag vom 15. Apr 2019
Antwort Antwort
Seite 2 von 3     12 3   
DieDolly

Registriert seit: 22. Jun 2018
951 Beiträge
 
#11

AW: Auslesen ob Integer Positiv oder Negativ ist

  Alt 12. Apr 2019, 12:29
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))
  Mit Zitat antworten Zitat
freimatz
Online

Registriert seit: 20. Mai 2010
539 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#12

AW: Auslesen ob Integer Positiv oder Negativ ist

  Alt 12. Apr 2019, 13:10
Wunderbar letzteres hat funktioniert
Schön. Dann bitte noch "Offene Frage • " wegmachen.
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
2.109 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#13

AW: Auslesen ob Integer Positiv oder Negativ ist

  Alt 12. Apr 2019, 15:05
Wunderbar letzteres hat funktioniert
Schön. Dann bitte noch "Offene Frage • " wegmachen.
Bei mir steht dran: >>Offene Frage von "freimatz"<<?
  Mit Zitat antworten Zitat
Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.030 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#14

AW: Auslesen ob Integer Positiv oder Negativ ist

  Alt 12. Apr 2019, 15:30
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ü"<<?
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
  Mit Zitat antworten Zitat
Benutzerbild von haentschman
haentschman

Registriert seit: 24. Okt 2006
Ort: Seifhennersdorf / Sachsen
4.164 Beiträge
 
Delphi 10.1 Berlin Professional
 
#15

AW: Auslesen ob Integer Positiv oder Negativ ist

  Alt 12. Apr 2019, 15:42
Hat hier jeder einer ne offene Frage?
Miniaturansicht angehängter Grafiken
offen.png  
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
2.109 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#16

AW: Auslesen ob Integer Positiv oder Negativ ist

  Alt 12. Apr 2019, 17:19
Jetzt wird's kurios.
  Mit Zitat antworten Zitat
Delphi.Narium

Registriert seit: 27. Nov 2017
1.069 Beiträge
 
Delphi 7 Professional
 
#17

AW: Auslesen ob Integer Positiv oder Negativ ist

  Alt 12. Apr 2019, 17:26
Wieso?

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

Registriert seit: 19. Sep 2011
Ort: Deutschland
339 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#18

AW: Auslesen ob Integer Positiv oder Negativ ist

  Alt 12. Apr 2019, 22:45
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.
Dennis
  Mit Zitat antworten Zitat
Zawuza

Registriert seit: 13. Apr 2019
1 Beiträge
 
#19

AW: Auslesen ob Integer Positiv oder Negativ ist

  Alt 13. Apr 2019, 16:31
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!

Geändert von Zawuza (13. Apr 2019 um 16:35 Uhr) Grund: verständlicher
  Mit Zitat antworten Zitat
Delphi.Narium

Registriert seit: 27. Nov 2017
1.069 Beiträge
 
Delphi 7 Professional
 
#20

AW: Auslesen ob Integer Positiv oder Negativ ist

  Alt 13. Apr 2019, 17:27
@Zawuza

Wie kommt man auf so 'ne abgefahrene Idee?
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:00 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf