Übergabe negativer werte

[EWeiss]

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]

Delphi-Quellcode:

const
  ID_RECT = LongWord(-1);  // oder $FFFFFFFF;

[EWeiss]

Zitat von himitsu:

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.
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]

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]

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
  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]

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]

..."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