Re: [BLACKBOX] Variant Records vs. Component Pascal

From: [at]} <Chris>
Date: Sat, 2 Jan 2010 15:32:50 +1030

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

As well as the examples in Doug's and Bob's replies, look on Helmut's Zinn
"Component Pascal Collection" site:

http://www.zinnamturm.eu

For example "Misc" includes some generic sorting and linear list processing
examples:

http://www.zinnamturm.eu/downloadsIN.htm#Misc

Regards,
Chris

> -----Original Message-----
> From: BlackBox [mailto:BLACKBOX{([at]})nowhere.xy
> Chris Burrows
> Sent: Friday, 1 January 2010 9:17 AM
> To: BLACKBOX{([at]})nowhere.xy
> Subject: Re: [BLACKBOX] Variant Records vs. Component Pascal
>
...
...
> As to your specific current task - I'm sure somebody else
> will show you how
> to do it once they've all recovered from the New Year celebrations.
> Otherwise I'll try and track down some helpful examples for you.
>
...
...
> Chris Burrows
> CFB Software
> http://www.armaide.com
>
> ________________________________
>
> From: BlackBox [mailto:BLACKBOX{([at]})nowhere.xy
> Stephen R. Troy
> Sent: Friday, 1 January 2010 7:42 AM
> To: BLACKBOX{([at]})nowhere.xy
> Subject: [BLACKBOX] Variant Records vs. Component Pascal
>
...
...
> I have a program I have been evolving for several
> years, which reads
> in a database which is in a structured ASCII text file using
> a third-party
> database schema. The program develops several index files,
> performs various
> sorting and filtering operations on these indexes, and the
> uses the modified
> indexes to write out reports using the same database schema.
> There are
> three main types of records, and I was able to write very
> efficient sorting
> and filtering procedures in Modula-2 by writing the records as variant
> records of a basic type, then instantiating the records by
> pointers. My
> indexes were linked lists of the pointers, both linear and
> binary trees, and
> so I could find, sort, and filter each of the three types of
> records using
> the same very efficient code, because I manipulated only the pointers'
> "next-record" pointer in the linked lists, not moving any
> records in memory.
>
...
...

----
To unsubscribe, send a message with body "SIGNOFF BLACKBOX" to LISTSERV{([at]})nowhere.xy----boundary-LibPST-iamunique-1102622786_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIEFzIHdlbGwgYXMgdGhlIGV4YW1wbGVzIGluIERv
dWcncyBhbmQgQm9iJ3MgcmVwbGllcywgbG9vayBvbiBIZWxtdXQncyBaaW5uXHBhcg0KIkNvbXBv
bmVudCBQYXNjYWwgQ29sbGVjdGlvbiIgc2l0ZTpccGFyDQpccGFyDQpodHRwOi8vd3d3Lnppbm5h
bXR1cm0uZXVccGFyDQpccGFyDQpGb3IgZXhhbXBsZSAiTWlzYyIgaW5jbHVkZXMgc29tZSBnZW5l
cmljIHNvcnRpbmcgYW5kIGxpbmVhciBsaXN0IHByb2Nlc3NpbmdccGFyDQpleGFtcGxlczpccGFy
DQpccGFyDQpodHRwOi8vd3d3Lnppbm5hbXR1cm0uZXUvZG93bmxvYWRzSU4uaHRtI01pc2NccGFy
DQpccGFyDQpSZWdhcmRzLFxwYXINCkNocmlzIFxwYXINClxwYXINCj4gLS0tLS1PcmlnaW5hbCBN
ZXNzYWdlLS0tLS1ccGFyDQo+IEZyb206IEJsYWNrQm94IFttYWlsdG86QkxBQ0tCT1hATElTVFMu
T0JFUk9OLkNIXSBPbiBCZWhhbGYgT2YgXHBhcg0KPiBDaHJpcyBCdXJyb3dzXHBhcg0KPiBTZW50
OiBGcmlkYXksIDEgSmFudWFyeSAyMDEwIDk6MTcgQU1ccGFyDQo+IFRvOiBCTEFDS0JPWEBMSVNU
Uy5PQkVST04uQ0hccGFyDQo+IFN1YmplY3Q6IFJlOiBbQkxBQ0tCT1hdIFZhcmlhbnQgUmVjb3Jk
cyB2cy4gQ29tcG9uZW50IFBhc2NhbFxwYXINCj4gXHBhcg0KLi4uXHBhcg0KLi4uXHBhcg0KPiBB
cyB0byB5b3VyIHNwZWNpZmljIGN1cnJlbnQgdGFzayAtIEknbSBzdXJlIHNvbWVib2R5IGVsc2Ug
XHBhcg0KPiB3aWxsIHNob3cgeW91IGhvd1xwYXINCj4gdG8gZG8gaXQgb25jZSB0aGV5J3ZlIGFs
bCByZWNvdmVyZWQgZnJvbSB0aGUgTmV3IFllYXIgY2VsZWJyYXRpb25zLlxwYXINCj4gT3RoZXJ3
aXNlIEknbGwgdHJ5IGFuZCB0cmFjayBkb3duIHNvbWUgaGVscGZ1bCBleGFtcGxlcyBmb3IgeW91
LlxwYXINCj4gXHBhcg0KLi4uXHBhcg0KLi4uXHBhcg0KPiBDaHJpcyBCdXJyb3dzXHBhcg0KPiBD
RkIgU29mdHdhcmVccGFyDQo+IGh0dHA6Ly93d3cuYXJtYWlkZS5jb21ccGFyDQo+IFxwYXINCj4g
X19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19ccGFyDQo+IFxwYXINCj4gXHRhYiBGcm9t
OiBCbGFja0JveCBbbWFpbHRvOkJMQUNLQk9YQExJU1RTLk9CRVJPTi5DSF0gT24gQmVoYWxmIE9m
XHBhcg0KPiBTdGVwaGVuIFIuIFRyb3lccGFyDQo+IFx0YWIgU2VudDogRnJpZGF5LCAxIEphbnVh
cnkgMjAxMCA3OjQyIEFNXHBhcg0KPiBcdGFiIFRvOiBCTEFDS0JPWEBMSVNUUy5PQkVST04uQ0hc
cGFyDQo+IFx0YWIgU3ViamVjdDogW0JMQUNLQk9YXSBWYXJpYW50IFJlY29yZHMgdnMuIENvbXBv
bmVudCBQYXNjYWxccGFyDQo+IFx0YWIgXHBhcg0KLi4uXHBhcg0KLi4uXHBhcg0KPiBcdGFiIEkg
aGF2ZSBhIHByb2dyYW0gSSBoYXZlIGJlZW4gZXZvbHZpbmcgZm9yIHNldmVyYWwgXHBhcg0KPiB5
ZWFycywgd2hpY2ggcmVhZHNccGFyDQo+IGluIGEgZGF0YWJhc2Ugd2hpY2ggaXMgaW4gYSBzdHJ1
Y3R1cmVkIEFTQ0lJIHRleHQgZmlsZSB1c2luZyBccGFyDQo+IGEgdGhpcmQtcGFydHlccGFyDQo+
IGRhdGFiYXNlIHNjaGVtYS4gIFRoZSBwcm9ncmFtIGRldmVsb3BzIHNldmVyYWwgaW5kZXggZmls
ZXMsIFxwYXINCj4gcGVyZm9ybXMgdmFyaW91c1xwYXINCj4gc29ydGluZyBhbmQgZmlsdGVyaW5n
IG9wZXJhdGlvbnMgb24gdGhlc2UgaW5kZXhlcywgYW5kIHRoZSBccGFyDQo+IHVzZXMgdGhlIG1v
ZGlmaWVkXHBhcg0KPiBpbmRleGVzIHRvIHdyaXRlIG91dCByZXBvcnRzIHVzaW5nIHRoZSBzYW1l
IGRhdGFiYXNlIHNjaGVtYS4gIFxwYXINCj4gVGhlcmUgYXJlXHBhcg0KPiB0aHJlZSBtYWluIHR5
cGVzIG9mIHJlY29yZHMsIGFuZCBJIHdhcyBhYmxlIHRvIHdyaXRlIHZlcnkgXHBhcg0KPiBlZmZp
Y2llbnQgc29ydGluZ1xwYXINCj4gYW5kIGZpbHRlcmluZyBwcm9jZWR1cmVzIGluIE1vZHVsYS0y
IGJ5IHdyaXRpbmcgdGhlIHJlY29yZHMgYXMgdmFyaWFudFxwYXINCj4gcmVjb3JkcyBvZiBhIGJh
c2ljIHR5cGUsIHRoZW4gaW5zdGFudGlhdGluZyB0aGUgcmVjb3JkcyBieSBccGFyDQo+IHBvaW50
ZXJzLiAgTXlccGFyDQo+IGluZGV4ZXMgd2VyZSBsaW5rZWQgbGlzdHMgb2YgdGhlIHBvaW50ZXJz
LCBib3RoIGxpbmVhciBhbmQgXHBhcg0KPiBiaW5hcnkgdHJlZXMsIGFuZFxwYXINCj4gc28gSSBj
b3VsZCBmaW5kLCBzb3J0LCBhbmQgZmlsdGVyIGVhY2ggb2YgdGhlIHRocmVlIHR5cGVzIG9mIFxw
YXINCj4gcmVjb3JkcyB1c2luZ1xwYXINCj4gdGhlIHNhbWUgdmVyeSBlZmZpY2llbnQgY29kZSwg
YmVjYXVzZSBJIG1hbmlwdWxhdGVkIG9ubHkgdGhlIHBvaW50ZXJzJ1xwYXINCj4gIm5leHQtcmVj
b3JkIiBwb2ludGVyIGluIHRoZSBsaW5rZWQgbGlzdHMsIG5vdCBtb3ZpbmcgYW55IFxwYXINCj4g
cmVjb3JkcyBpbiBtZW1vcnkuXHBhcg0KPiBccGFyDQouLi5ccGFyDQouLi5ccGFyDQpccGFyDQpc
cGFyDQotLS0tXHBhcg0KVG8gdW5zdWJzY3JpYmUsIHNlbmQgYSBtZXNzYWdlIHdpdGggYm9keSAi
U0lHTk9GRiBCTEFDS0JPWCIgdG8gTElTVFNFUlZATElTVFMuT0JFUk9OLkNIXH19AC1QYQ==
----boundary-LibPST-iamunique-1102622786_-_---

Received on Sat Jan 02 2010 - 06:02:50 UTC