----boundary-LibPST-iamunique-1584249723_-_-
Content-type: text/plain
Wolfgang:
many thanks! I am joggling between C/C++, CP, and now also VB,
and I am getting confused between 0x01, 01X, 01H, and who knows
what else ;-)
Wojtek Skulski skulski{([at]})nowhere.xy
On Tue, 4 Jun 2002, Tech-Support (BlackBox) wrote:
> Woitek,
>
> The answer is:
> CONST genericRead* = 80000000H;
>
> The suffix 'X' tries to create a character, not a number, and for a character,
> the value is a bit large indeed, you'll have to admitt :-)
>
> Wolfgang
>
> > -----Original Message-----
> > From: Wojtek Skulski [mailto:skulski{([at]})nowhere.xy> > Sent: Tuesday, June 04, 2002 5:56 PM
> > To: support{([at]})nowhere.xy> > Cc: BlackBox; Wojtek Skulski
> > Subject: How to set high bits?
> >
> >
> > Hi:
> >
> > I am developing a Windows API module and I am getting into the following
> > problem. The declaration below (taken from Visual Basic) sets the highest
> > bit of the 32-bit word. This works in VB. How can I translate this to
> > Component Pascal?
> >
> > Public Const GENERIC_READ = &H80000000
> >
> > None of the following compiles under BlackBox
> >
> > CONST
> > GENERIC_READ* = 080000000X; (* number too large*)
> > GENERIC_READ* = SYSTEM.VAL(INTEGER,{31}); (*expression should be constant*)
> > GENERIC_READ* = {31}(INTEGER); (* ";" missing *)
> >
> > How can I declare such a constant?
> >
> > Thank you,
> >
> > Wojtek Skulski skulski{([at]})nowhere.xy> >
>
>
--------------------------------------------
To unsubscribe from this mailing list, send a message containing the word "unsubscribe" to:
blackbox-request{([at]})nowhere.xy
To get a list of valid e-mail commands and instructions on their usage, send a message containing the word "help" to the above address.
Send any problem reports or questions related to this email list to the list owner at
owner-blackbox{([at]})nowhere.xy
Current posting policy:
a) To post you should use the same address by which you are subscribed to the mailing list. That way, the list server will recognize you as subscriber and forward your posting immediately, without creating any overhead.
b) If, for some reason, you cannot post from the address, by which you are subscribed, your message will be moderated to avoid spam. Please understand that moderation will often cause some delay, in particular over weekends or holydays.
----boundary-LibPST-iamunique-1584249723_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIFdvbGZnYW5nOlxwYXINClxwYXINCiAgbWFueSB0
aGFua3MhIEkgYW0gam9nZ2xpbmcgYmV0d2VlbiBDL0MrKywgQ1AsIGFuZCBub3cgYWxzbyBWQixc
cGFyDQphbmQgSSBhbSBnZXR0aW5nIGNvbmZ1c2VkIGJldHdlZW4gMHgwMSwgMDFYLCAwMUgsIGFu
ZCB3aG8ga25vd3NccGFyDQp3aGF0IGVsc2UgOy0pXHBhcg0KXHBhcg0KV29qdGVrIFNrdWxza2kg
c2t1bHNraUBwYXMucm9jaGVzdGVyLmVkdVxwYXINCk9uIFR1ZSwgNCBKdW4gMjAwMiwgVGVjaC1T
dXBwb3J0IChCbGFja0JveCkgd3JvdGU6XHBhcg0KXHBhcg0KPiBXb2l0ZWssXHBhcg0KPlxwYXIN
Cj4gVGhlIGFuc3dlciBpczpccGFyDQo+IFx0YWIgQ09OU1QgZ2VuZXJpY1JlYWQqID0gODAwMDAw
MDBIO1xwYXINCj5ccGFyDQo+IFRoZSBzdWZmaXggJ1gnIHRyaWVzIHRvIGNyZWF0ZSBhIGNoYXJh
Y3Rlciwgbm90IGEgbnVtYmVyLCBhbmQgZm9yIGEgY2hhcmFjdGVyLFxwYXINCj4gdGhlIHZhbHVl
IGlzIGEgYml0IGxhcmdlIGluZGVlZCwgeW91J2xsIGhhdmUgdG8gYWRtaXR0IDotKVxwYXINCj5c
cGFyDQo+IFx0YWIgV29sZmdhbmdccGFyDQo+XHBhcg0KPiA+IC0tLS0tT3JpZ2luYWwgTWVzc2Fn
ZS0tLS0tXHBhcg0KPiA+IEZyb206IFdvanRlayBTa3Vsc2tpIFttYWlsdG86c2t1bHNraUBwaG9i
dG9mLnBhcy5yb2NoZXN0ZXIuZWR1XVxwYXINCj4gPiBTZW50OiBUdWVzZGF5LCBKdW5lIDA0LCAy
MDAyIDU6NTYgUE1ccGFyDQo+ID4gVG86IHN1cHBvcnRAb2Jlcm9uLmNoXHBhcg0KPiA+IENjOiBC
bGFja0JveDsgV29qdGVrIFNrdWxza2lccGFyDQo+ID4gU3ViamVjdDogSG93IHRvIHNldCBoaWdo
IGJpdHM/XHBhcg0KPiA+XHBhcg0KPiA+XHBhcg0KPiA+IEhpOlxwYXINCj4gPlxwYXINCj4gPiAg
IEkgYW0gZGV2ZWxvcGluZyBhIFdpbmRvd3MgQVBJIG1vZHVsZSBhbmQgSSBhbSBnZXR0aW5nIGlu
dG8gdGhlIGZvbGxvd2luZ1xwYXINCj4gPiBwcm9ibGVtLiBUaGUgZGVjbGFyYXRpb24gYmVsb3cg
KHRha2VuIGZyb20gVmlzdWFsIEJhc2ljKSBzZXRzIHRoZSBoaWdoZXN0XHBhcg0KPiA+IGJpdCBv
ZiB0aGUgMzItYml0IHdvcmQuIFRoaXMgd29ya3MgaW4gVkIuIEhvdyBjYW4gSSB0cmFuc2xhdGUg
dGhpcyB0b1xwYXINCj4gPiBDb21wb25lbnQgUGFzY2FsP1xwYXINCj4gPlxwYXINCj4gPiBQdWJs
aWMgQ29uc3QgR0VORVJJQ19SRUFEID0gJkg4MDAwMDAwMFxwYXINCj4gPlxwYXINCj4gPiBOb25l
IG9mIHRoZSBmb2xsb3dpbmcgY29tcGlsZXMgdW5kZXIgQmxhY2tCb3hccGFyDQo+ID5ccGFyDQo+
ID4gQ09OU1RccGFyDQo+ID4gR0VORVJJQ19SRUFEKiA9IDA4MDAwMDAwMFg7ICgqIG51bWJlciB0
b28gbGFyZ2UqKVxwYXINCj4gPiBHRU5FUklDX1JFQUQqID0gU1lTVEVNLlZBTChJTlRFR0VSLFx7
MzFcfSk7ICgqZXhwcmVzc2lvbiBzaG91bGQgYmUgY29uc3RhbnQqKVxwYXINCj4gPiBHRU5FUklD
X1JFQUQqID0gXHszMVx9KElOVEVHRVIpOyAoKiAiOyIgbWlzc2luZyAqKVxwYXINCj4gPlxwYXIN
Cj4gPiBIb3cgY2FuIEkgZGVjbGFyZSBzdWNoIGEgY29uc3RhbnQ/XHBhcg0KPiA+XHBhcg0KPiA+
IFRoYW5rIHlvdSxccGFyDQo+ID5ccGFyDQo+ID4gV29qdGVrIFNrdWxza2kgc2t1bHNraUBwYXMu
cm9jaGVzdGVyLmVkdVxwYXINCj4gPlxwYXINCj5ccGFyDQo+XHBhcg0KXHBhcg0KLS0tLS0tLS0t
LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1ccGFyDQpccGFyDQpUbyB1bnN1YnNj
cmliZSBmcm9tIHRoaXMgbWFpbGluZyBsaXN0LCBzZW5kIGEgbWVzc2FnZSBjb250YWluaW5nIHRo
ZSB3b3JkICJ1bnN1YnNjcmliZSIgdG86XHBhcg0KICAgYmxhY2tib3gtcmVxdWVzdEBvYmVyb24u
Y2hccGFyDQpccGFyDQpUbyBnZXQgYSBsaXN0IG9mIHZhbGlkIGUtbWFpbCBjb21tYW5kcyBhbmQg
aW5zdHJ1Y3Rpb25zIG9uIHRoZWlyIHVzYWdlLCBzZW5kIGEgbWVzc2FnZSBjb250YWluaW5nIHRo
ZSB3b3JkICJoZWxwIiB0byB0aGUgYWJvdmUgYWRkcmVzcy5ccGFyDQpccGFyDQpTZW5kIGFueSBw
cm9ibGVtIHJlcG9ydHMgb3IgcXVlc3Rpb25zIHJlbGF0ZWQgdG8gdGhpcyBlbWFpbCBsaXN0IHRv
IHRoZSBsaXN0IG93bmVyIGF0XHBhcg0KICAgb3duZXItYmxhY2tib3hAb2Jlcm9uLmNoXHBhcg0K
XHBhcg0KQ3VycmVudCBwb3N0aW5nIHBvbGljeTpccGFyDQpccGFyDQphKSBUbyBwb3N0IHlvdSBz
aG91bGQgdXNlIHRoZSBzYW1lIGFkZHJlc3MgYnkgd2hpY2ggeW91IGFyZSBzdWJzY3JpYmVkIHRv
IHRoZSBtYWlsaW5nIGxpc3QuIFRoYXQgd2F5LCB0aGUgbGlzdCBzZXJ2ZXIgd2lsbCByZWNvZ25p
emUgeW91IGFzIHN1YnNjcmliZXIgYW5kIGZvcndhcmQgeW91ciBwb3N0aW5nIGltbWVkaWF0ZWx5
LCB3aXRob3V0IGNyZWF0aW5nIGFueSBvdmVyaGVhZC5ccGFyDQpccGFyDQpiKSBJZiwgZm9yIHNv
bWUgcmVhc29uLCB5b3UgY2Fubm90IHBvc3QgZnJvbSB0aGUgYWRkcmVzcywgYnkgd2hpY2ggeW91
IGFyZSBzdWJzY3JpYmVkLCB5b3VyIG1lc3NhZ2Ugd2lsbCBiZSBtb2RlcmF0ZWQgdG8gYXZvaWQg
c3BhbS4gUGxlYXNlIHVuZGVyc3RhbmQgdGhhdCBtb2RlcmF0aW9uIHdpbGwgb2Z0ZW4gY2F1c2Ug
c29tZSBkZWxheSwgaW4gcGFydGljdWxhciBvdmVyIHdlZWtlbmRzIG9yIGhvbHlkYXl9fQAgICAg
IFR1ZSwgNCA=
----boundary-LibPST-iamunique-1584249723_-_---
Received on Tue Jun 04 2002 - 19:12:40 UTC