Re: [BLACKBOX] Delphi-like parameters in Array Of Const

From: [at]} <Chris>
Date: Sun, 10 Oct 2010 09:54:26 +1030

----boundary-LibPST-iamunique-214662425_-_-
Content-type: text/plain

>-----Original Message-----
>From: BlackBox [mailto:BLACKBOX{([at]})nowhere.xy
>Sent: Saturday, 9 October 2010 11:48 PM
>To: BLACKBOX{([at]})nowhere.xy
>Subject: [BLACKBOX] Delphi-like parameters in Array Of Const
>
>There is very useful procedure in Delphi, called 'Format', for
>formatting string (and like 'sprintf' function in C). It
>receives a template string and open array of values with
>different types (e.g.
>integer, string and so on) and substitutes values in template.
>I'm looking for simple solution for formatting strings as
>above because not satisfied with Dialog.MapParamString.
>

I'm not aware of one. If you can't find something similar in BlackBox itself
you might find something in Helmut Zinn's Component Pascal Collection:

http://www.zinnamturm.eu

> > Internally, an array of const is an open array of TVarRec.
>How to implement such 'array of const' in Component Pascal? Is
>it possible?
>

An 'array of const' is a mechanism provided in Delphi to allow procedures to
have a variable number of parameters. This is not a feature which is
provided in Oberon / Component Pascal.

A (type safe) way to do this in CP is to have one parameter which is a
linked list of objects, each of which can be a different type. We use this
technique extensively (in Delphi, CP and GPCP software) to provide a generic
way of maintaining INI file / Windows registry values. It supports the use
of string, boolean and integer data types.

If you are only dealing with a few values then it is a simple problem
deserving a simple solution. Call a separate procedure for each value you
wish to format. If you have groups of similar calls then collect these into
one procedure with a fixed number of parameters. It might require a little
more typing but is likely to be more secure / reliable and be easier to
comprehend and maintain in the long term.

Regards,
Chris Burrows
CFB Software
Astrobe v3.2: ARM Oberon-07 Development System
http://www.astrobe.com


  

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-214662425_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwID4tLS0tLU9yaWdpbmFsIE1lc3NhZ2UtLS0tLVxw
YXINCj5Gcm9tOiBCbGFja0JveCBbbWFpbHRvOkJMQUNLQk9YQExJU1RTLk9CRVJPTi5DSF0gT24g
QmVoYWxmIE9mIFJvbWlyYXNccGFyDQo+U2VudDogU2F0dXJkYXksIDkgT2N0b2JlciAyMDEwIDEx
OjQ4IFBNXHBhcg0KPlRvOiBCTEFDS0JPWEBMSVNUUy5PQkVST04uQ0hccGFyDQo+U3ViamVjdDog
W0JMQUNLQk9YXSBEZWxwaGktbGlrZSBwYXJhbWV0ZXJzIGluIEFycmF5IE9mIENvbnN0XHBhcg0K
PlxwYXINCj5UaGVyZSBpcyB2ZXJ5IHVzZWZ1bCBwcm9jZWR1cmUgaW4gRGVscGhpLCBjYWxsZWQg
J0Zvcm1hdCcsIGZvciBccGFyDQo+Zm9ybWF0dGluZyBzdHJpbmcgKGFuZCBsaWtlICdzcHJpbnRm
JyBmdW5jdGlvbiBpbiBDKS4gSXQgXHBhcg0KPnJlY2VpdmVzIGEgdGVtcGxhdGUgc3RyaW5nIGFu
ZCBvcGVuIGFycmF5IG9mIHZhbHVlcyB3aXRoIFxwYXINCj5kaWZmZXJlbnQgdHlwZXMgKGUuZy4g
XHBhcg0KPmludGVnZXIsIHN0cmluZyBhbmQgc28gb24pIGFuZCBzdWJzdGl0dXRlcyB2YWx1ZXMg
aW4gdGVtcGxhdGUuXHBhcg0KPkknbSBsb29raW5nIGZvciBzaW1wbGUgc29sdXRpb24gZm9yIGZv
cm1hdHRpbmcgc3RyaW5ncyBhcyBccGFyDQo+YWJvdmUgYmVjYXVzZSBub3Qgc2F0aXNmaWVkIHdp
dGggRGlhbG9nLk1hcFBhcmFtU3RyaW5nLlxwYXINCj5ccGFyDQpccGFyDQpJJ20gbm90IGF3YXJl
IG9mIG9uZS4gSWYgeW91IGNhbid0IGZpbmQgc29tZXRoaW5nIHNpbWlsYXIgaW4gQmxhY2tCb3gg
aXRzZWxmXHBhcg0KeW91IG1pZ2h0IGZpbmQgc29tZXRoaW5nIGluIEhlbG11dCBaaW5uJ3MgQ29t
cG9uZW50IFBhc2NhbCBDb2xsZWN0aW9uOlxwYXINClxwYXINCmh0dHA6Ly93d3cuemlubmFtdHVy
bS5ldVxwYXINClxwYXINCj4gPiBJbnRlcm5hbGx5LCBhbiBhcnJheSBvZiBjb25zdCBpcyBhbiBv
cGVuIGFycmF5IG9mIFRWYXJSZWMuXHBhcg0KPkhvdyB0byBpbXBsZW1lbnQgc3VjaCAnYXJyYXkg
b2YgY29uc3QnIGluIENvbXBvbmVudCBQYXNjYWw/IElzIFxwYXINCj5pdCBwb3NzaWJsZT9ccGFy
DQo+XHBhcg0KXHBhcg0KQW4gJ2FycmF5IG9mIGNvbnN0JyBpcyBhIG1lY2hhbmlzbSBwcm92aWRl
ZCBpbiBEZWxwaGkgdG8gYWxsb3cgcHJvY2VkdXJlcyB0b1xwYXINCmhhdmUgYSB2YXJpYWJsZSBu
dW1iZXIgb2YgcGFyYW1ldGVycy4gVGhpcyBpcyBub3QgYSBmZWF0dXJlIHdoaWNoIGlzXHBhcg0K
cHJvdmlkZWQgaW4gT2Jlcm9uIC8gQ29tcG9uZW50IFBhc2NhbC4gXHBhcg0KXHBhcg0KQSAodHlw
ZSBzYWZlKSB3YXkgdG8gZG8gdGhpcyBpbiBDUCBpcyB0byBoYXZlIG9uZSBwYXJhbWV0ZXIgd2hp
Y2ggaXMgYVxwYXINCmxpbmtlZCBsaXN0IG9mIG9iamVjdHMsIGVhY2ggb2Ygd2hpY2ggY2FuIGJl
IGEgZGlmZmVyZW50IHR5cGUuIFdlIHVzZSB0aGlzXHBhcg0KdGVjaG5pcXVlIGV4dGVuc2l2ZWx5
IChpbiBEZWxwaGksIENQIGFuZCBHUENQIHNvZnR3YXJlKSB0byBwcm92aWRlIGEgZ2VuZXJpY1xw
YXINCndheSBvZiBtYWludGFpbmluZyBJTkkgZmlsZSAvIFdpbmRvd3MgcmVnaXN0cnkgdmFsdWVz
LiBJdCBzdXBwb3J0cyB0aGUgdXNlXHBhcg0Kb2Ygc3RyaW5nLCBib29sZWFuIGFuZCBpbnRlZ2Vy
IGRhdGEgdHlwZXMuXHBhcg0KXHBhcg0KSWYgeW91IGFyZSBvbmx5IGRlYWxpbmcgd2l0aCBhIGZl
dyB2YWx1ZXMgdGhlbiBpdCBpcyBhIHNpbXBsZSBwcm9ibGVtXHBhcg0KZGVzZXJ2aW5nIGEgc2lt
cGxlIHNvbHV0aW9uLiBDYWxsIGEgc2VwYXJhdGUgcHJvY2VkdXJlIGZvciBlYWNoIHZhbHVlIHlv
dVxwYXINCndpc2ggdG8gZm9ybWF0LiBJZiB5b3UgaGF2ZSBncm91cHMgb2Ygc2ltaWxhciBjYWxs
cyB0aGVuIGNvbGxlY3QgdGhlc2UgaW50b1xwYXINCm9uZSBwcm9jZWR1cmUgd2l0aCBhIGZpeGVk
IG51bWJlciBvZiBwYXJhbWV0ZXJzLiBJdCBtaWdodCByZXF1aXJlIGEgbGl0dGxlXHBhcg0KbW9y
ZSB0eXBpbmcgYnV0IGlzIGxpa2VseSB0byBiZSBtb3JlIHNlY3VyZSAvIHJlbGlhYmxlIGFuZCBi
ZSBlYXNpZXIgdG9ccGFyDQpjb21wcmVoZW5kIGFuZCBtYWludGFpbiBpbiB0aGUgbG9uZyB0ZXJt
LlxwYXINClxwYXINClJlZ2FyZHMsXHBhcg0KQ2hyaXMgQnVycm93c1xwYXINCkNGQiBTb2Z0d2Fy
ZVxwYXINCkFzdHJvYmUgdjMuMjogQVJNIE9iZXJvbi0wNyBEZXZlbG9wbWVudCBTeXN0ZW1ccGFy
DQpodHRwOi8vd3d3LmFzdHJvYmUuY29tXHBhcg0KXHBhcg0KXHBhcg0KICBccGFyDQpccGFyDQpc
cGFyDQotLS0tXHBhcg0KVG8gdW5zdWJzY3JpYmUsIHNlbmQgYSBtZXNzYWdlIHdpdGggYm9keSAi
U0lHTk9GRiBCTEFDS0JPWCIgdG8gTElTVFNFUlZATElTVFMuT0JFUk9OLkNIXHBhcg0KfQ==
----boundary-LibPST-iamunique-214662425_-_---

Received on Sun Oct 10 2010 - 01:24:26 UTC