----boundary-LibPST-iamunique-2029018178_-_-
Content-type: text/plain
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-2029018178_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIFdvaXRlayxccGFyDQpccGFyDQpUaGUgYW5zd2Vy
IGlzOlxwYXINClx0YWIgQ09OU1QgZ2VuZXJpY1JlYWQqID0gODAwMDAwMDBIO1xwYXINClxwYXIN
ClRoZSBzdWZmaXggJ1gnIHRyaWVzIHRvIGNyZWF0ZSBhIGNoYXJhY3Rlciwgbm90IGEgbnVtYmVy
LCBhbmQgZm9yIGEgY2hhcmFjdGVyLFxwYXINCnRoZSB2YWx1ZSBpcyBhIGJpdCBsYXJnZSBpbmRl
ZWQsIHlvdSdsbCBoYXZlIHRvIGFkbWl0dCA6LSlccGFyDQpccGFyDQpcdGFiIFdvbGZnYW5nXHBh
cg0KXHBhcg0KPiAtLS0tLU9yaWdpbmFsIE1lc3NhZ2UtLS0tLVxwYXINCj4gRnJvbTogV29qdGVr
IFNrdWxza2kgW21haWx0bzpza3Vsc2tpQHBob2J0b2YucGFzLnJvY2hlc3Rlci5lZHVdXHBhcg0K
PiBTZW50OiBUdWVzZGF5LCBKdW5lIDA0LCAyMDAyIDU6NTYgUE1ccGFyDQo+IFRvOiBzdXBwb3J0
QG9iZXJvbi5jaFxwYXINCj4gQ2M6IEJsYWNrQm94OyBXb2p0ZWsgU2t1bHNraVxwYXINCj4gU3Vi
amVjdDogSG93IHRvIHNldCBoaWdoIGJpdHM/XHBhcg0KPlxwYXINCj5ccGFyDQo+IEhpOlxwYXIN
Cj5ccGFyDQo+ICAgSSBhbSBkZXZlbG9waW5nIGEgV2luZG93cyBBUEkgbW9kdWxlIGFuZCBJIGFt
IGdldHRpbmcgaW50byB0aGUgZm9sbG93aW5nXHBhcg0KPiBwcm9ibGVtLiBUaGUgZGVjbGFyYXRp
b24gYmVsb3cgKHRha2VuIGZyb20gVmlzdWFsIEJhc2ljKSBzZXRzIHRoZSBoaWdoZXN0XHBhcg0K
PiBiaXQgb2YgdGhlIDMyLWJpdCB3b3JkLiBUaGlzIHdvcmtzIGluIFZCLiBIb3cgY2FuIEkgdHJh
bnNsYXRlIHRoaXMgdG9ccGFyDQo+IENvbXBvbmVudCBQYXNjYWw/XHBhcg0KPlxwYXINCj4gUHVi
bGljIENvbnN0IEdFTkVSSUNfUkVBRCA9ICZIODAwMDAwMDBccGFyDQo+XHBhcg0KPiBOb25lIG9m
IHRoZSBmb2xsb3dpbmcgY29tcGlsZXMgdW5kZXIgQmxhY2tCb3hccGFyDQo+XHBhcg0KPiBDT05T
VFxwYXINCj4gR0VORVJJQ19SRUFEKiA9IDA4MDAwMDAwMFg7ICgqIG51bWJlciB0b28gbGFyZ2Uq
KVxwYXINCj4gR0VORVJJQ19SRUFEKiA9IFNZU1RFTS5WQUwoSU5URUdFUixcezMxXH0pOyAoKmV4
cHJlc3Npb24gc2hvdWxkIGJlIGNvbnN0YW50KilccGFyDQo+IEdFTkVSSUNfUkVBRCogPSBcezMx
XH0oSU5URUdFUik7ICgqICI7IiBtaXNzaW5nICopXHBhcg0KPlxwYXINCj4gSG93IGNhbiBJIGRl
Y2xhcmUgc3VjaCBhIGNvbnN0YW50P1xwYXINCj5ccGFyDQo+IFRoYW5rIHlvdSxccGFyDQo+XHBh
cg0KPiBXb2p0ZWsgU2t1bHNraSBza3Vsc2tpQHBhcy5yb2NoZXN0ZXIuZWR1XHBhcg0KPlxwYXIN
ClxwYXINCi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tXHBhcg0K
XHBhcg0KVG8gdW5zdWJzY3JpYmUgZnJvbSB0aGlzIG1haWxpbmcgbGlzdCwgc2VuZCBhIG1lc3Nh
Z2UgY29udGFpbmluZyB0aGUgd29yZCAidW5zdWJzY3JpYmUiIHRvOlxwYXINCiAgIGJsYWNrYm94
LXJlcXVlc3RAb2Jlcm9uLmNoXHBhcg0KXHBhcg0KVG8gZ2V0IGEgbGlzdCBvZiB2YWxpZCBlLW1h
aWwgY29tbWFuZHMgYW5kIGluc3RydWN0aW9ucyBvbiB0aGVpciB1c2FnZSwgc2VuZCBhIG1lc3Nh
Z2UgY29udGFpbmluZyB0aGUgd29yZCAiaGVscCIgdG8gdGhlIGFib3ZlIGFkZHJlc3MuXHBhcg0K
XHBhcg0KU2VuZCBhbnkgcHJvYmxlbSByZXBvcnRzIG9yIHF1ZXN0aW9ucyByZWxhdGVkIHRvIHRo
aXMgZW1haWwgbGlzdCB0byB0aGUgbGlzdCBvd25lciBhdFxwYXINCiAgIG93bmVyLWJsYWNrYm94
QG9iZXJvbi5jaFxwYXINClxwYXINCkN1cnJlbnQgcG9zdGluZyBwb2xpY3k6XHBhcg0KXHBhcg0K
YSkgVG8gcG9zdCB5b3Ugc2hvdWxkIHVzZSB0aGUgc2FtZSBhZGRyZXNzIGJ5IHdoaWNoIHlvdSBh
cmUgc3Vic2NyaWJlZCB0byB0aGUgbWFpbGluZyBsaXN0LiBUaGF0IHdheSwgdGhlIGxpc3Qgc2Vy
dmVyIHdpbGwgcmVjb2duaXplIHlvdSBhcyBzdWJzY3JpYmVyIGFuZCBmb3J3YXJkIHlvdXIgcG9z
dGluZyBpbW1lZGlhdGVseSwgd2l0aG91dCBjcmVhdGluZyBhbnkgb3ZlcmhlYWQuXHBhcg0KXHBh
cg0KYikgSWYsIGZvciBzb21lIHJlYXNvbiwgeW91IGNhbm5vdCBwb3N0IGZyb20gdGhlIGFkZHJl
c3MsIGJ5IHdoaWNoIHlvdSBhcmUgc3Vic2NyaWJlZCwgeW91ciBtZXNzYWdlIHdpbGwgYmUgbW9k
ZXJhdGVkIHRvIGF2b2lkIHNwYW0uIFBsZWFzZSB1bmRlcnN0YW5kIHRoYXQgbW9kZXJhdGlvbiB3
aWxsIG9mdGVuIGNhdXNlIHNvbWUgZGVsYXksIGluIHBhcnRpY3VsYXIgb3ZlciB3ZWVrZW5kcyBv
ciBob2x5ZGF5fX0AdGljYXRpb24tV2Fy
----boundary-LibPST-iamunique-2029018178_-_---
Received on Tue Jun 04 2002 - 18:12:13 UTC