Delphi-PRAXiS
Seite 1 von 2  1 2      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Delphi Übergabe negativer werte (https://www.delphipraxis.net/195580-uebergabe-negativer-werte.html)

EWeiss 11. Mär 2018 03:26


Übergabe negativer werte
 
Ich möchte negative werte übergeben bsp -1.

const
ID_RECT = -1;
....
DlgItemID := ID_RECT;

Wenn ich Integer dafür nehme dann bekomme ich einen Bereichfehler (ERangeError)
CreateWindowEx erwartet für den Parameter HMENU = LongWord;

Und LongWord kann nun mal nicht als negativer wert übergeben werden auch dann nicht wenn ich DlgItemID als integer definiere.
Hmmm.. Wie geht es trotzdem ? Ohne die Bereichsprüfung ausstellen zu müssen.

gruss

himitsu 11. Mär 2018 05:55

AW: Übergabe negativer werte
 
Delphi-Quellcode:
const
  ID_RECT = LongWord(-1); // oder $FFFFFFFF;

EWeiss 11. Mär 2018 06:02

AW: Übergabe negativer werte
 
Zitat:

Zitat von himitsu (Beitrag 1395765)
Delphi-Quellcode:
const
  ID_RECT = LongWord(-1); // oder $FFFFFFFF;

Habe es jetzt nicht getestet.
Wäre es dann nicht besser DlgItemID direkt als LongWord zu definieren? Bin da ja flexible.

Edit:
Ok habe es selbst beantwortet.
Delphi-Quellcode:
SpriteCtrl_01.DlgItemID := IDC_SPR_1;
Zitat:

[DCC Fehler] uControls.pas(1106): E1012 Konstantenausdruck verletzt untere Grenzen
Mit deiner Änderung geht's aber nur mit LongWord vor der Konstante.
Frustrierend mal wieder.

Warum kann man die Konstante nicht ganz normal übergeben als Integer der geht doch von −2.147.483.648 bis 2.147.483.647

gruss

himitsu 11. Mär 2018 06:19

AW: Übergabe negativer werte
 
Mein, ein Autocast von unbekanntem geht da nicht so einfach, denn der Compiler weiß ja, dass es Progleme geben könnte.

Aber ja, der Cast geht auch bei Zuweisung an DlgItemID.
Delphi-Quellcode:
DlgItemID := LongWord(ID_RECT);
// oder
Integer(DlgItemID) := ID_RECT;

EWeiss 11. Mär 2018 06:30

AW: Übergabe negativer werte
 
sorry verstehe ich nicht.
Nochmal zu meinem Verständnis.

Delphi-Quellcode:
const
  IDC_SPR_1 = -1;
Delphi-Quellcode:
private
    function GetDlgItemID: Integer;
    procedure SetDlgItemID(const Value: Integer);
public
    property DlgItemID: Integer read GetDlgItemID write SetDlgItemID;
der Aufruf
Delphi-Quellcode:
  SpriteCtrl_01.DlgItemID := IDC_SPR_1;


Und Auswerten
Delphi-Quellcode:
    FHContainer := CreateWindowEx(DwExStyle, SKCONTAINER, '', DwStyle, Left,
      Top, Width, Height, ParentHandle, HMENU(DlgItemID), HInstance, nil);
HMENU ist ein cast von Integer zu LongWord.

Warum verursacht das dann immer noch einen ERangeError.
Meinem Verständnis nach dürfte das nicht sein.

gruss

KodeZwerg 11. Mär 2018 09:26

AW: Übergabe negativer werte
 
Negative -1 bzw #65535 DlgItemId's, sind das nicht nur "nicht-benutzbare-Objekte" ?
Ich verwende diese Werte nur bei Sachen die ich im Code nicht anfassen brauch, nur per .rh/.res initialisiere.
Beispiel, viele Panels mit jeweils einem Knopf drauf, die Panels bekommen alle -1/65535 die Knöpfe reguläre einmalige nummern.

mensch72 11. Mär 2018 09:33

AW: Übergabe negativer werte
 
..."HMENU ist ein cast von Integer zu LongWord.
Warum verursacht das dann immer noch einen ERangeError"...

Mein Erklärungsversuch:
- LongWord-Werte sind rein positiv und stets vorzeichenlos
- -1 ist mathematisch offensichtlich negativ und verletzt die untere Grenze(0) eines xxxxWord
- da Pascal vor dem Cast offensichtlich nach mathematischen Regeln arbeitet, macht ist das so erklärbar
- zufällig ist ab -1 binär in 32Bit z.B. in HEX-Darstellung $FFFFFFFF
=> WordZuweisungen von "-1" funktionieren ganz ohne Cast sauber, wenn man sich für solche Fälle eine ein 2. Konstante mit $FFFFFFFF definiert und nutzt
-> $FFFFFFFF würde aber wiederum bei Integer-Zuweisungen nun den oberen Bereich verletzt, weil 4,xMrd > den max 2,xMrd:)

himitsu 11. Mär 2018 11:37

AW: Übergabe negativer werte
 
Zuweisung von und zu Integer/LongInt und Cardinal/LongWord muß bei aktiver Bereichsprüfung fehl schlagen, denn -1 liegt nunmal nicht im Bereich von 0 bis 4.294.967.295

Außerdem ist diese Konstante auch noch Typlos, also -1 ist nicht unbedingt $FFFFFFFF es könnte auch $FF, $FFFF, $FFFFFFFFFFFFFFFF oder sonstwas sein.

EWeiss 11. Mär 2018 13:16

AW: Übergabe negativer werte
 
Zitat:

muß bei aktiver Bereichsprüfung fehl schlagen, denn -1 liegt nunmal nicht im Bereich von 0 bis 4.294.967.295
Das ist mir bewusst ;)

Aber auch so übergebe ich LongWord einen negativen Bereich
Delphi-Quellcode:
const
   ID_RECT = LongWord(-1); // oder $FFFFFFFF;
Irgendwie unlogisch.

LongWord(-1);
das selbe wie
HMENU(-1) denn HMENU ist definiert als LongWord.
also wenn DlgItemId als LongWord definiert ist\wäre.
Zitat:

Negative -1 bzw #65535 DlgItemId's, sind das nicht nur "nicht-benutzbare-Objekte" ?
Genau deshalb verwende ich sie als DialogItems für das erstellen von Fenstern.
und ab -10000 > -9999 für Sprite Objekte.
damit ich nicht in Kollision mit vielleicht schon vergebenen ID's komme.

gruss

himitsu 11. Mär 2018 19:47

AW: Übergabe negativer werte
 
Nur dass du dort "explizit" castest und und somit sagst.
"ich weiß was ich tu und es ist schon richtig so"


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:55 Uhr.
Seite 1 von 2  1 2      

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