Re: clear or fill memory?

From: [at]} <René>
Date: Thu, 09 Sep 2004 23:33:29 -0400

----boundary-LibPST-iamunique-653925165_-_- Content-type: text/plain How to zero a complete RECORD: VAR r, zero: RECORD a, b, c: T ... END; ... PROCEDURE Read*; BEGIN r.a:= a; r.b:= b: r.c:= c; ... END Read; (* put what you need into record "r" fields *) PROCEDURE Zero*; BEGIN a:= zero END Zero; (* this a very efficient and elegant way to fill with zeroes a complete structure *) Of course you need a "zero" for each kind of RECORD. Greetings, René Dorta. Univ. de Carabobo. Venezuela. Hof, Philipp wrote: Thanks for your replies:) Leading to my next question: Is there a built-in function to zero (or fill) everything in a RECORD? I could use RtlZeroMemory from the Windows API but rather would not. Thanks, Philipp -------------------------------------------- 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. -------------------------------------------- To unsubscribe from this mailing list, send a message containing the word "unsubscribe" to: blackbox-request{([at]})nowhere.xy ----boundary-LibPST-iamunique-653925165_-_- Content-type: application/rtf Content-transfer-encoding: base64 Content-Disposition: attachment; filename="rtf-body.rtf" e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbWh0bWwxIFxkZWZmMHtcZm9udHRibA0Ke1xmMFxm c3dpc3NcZmNoYXJzZXQwIEFyaWFsO30NCntcZjFcZm1vZGVybiBDb3VyaWVyIE5ldzt9DQp7XGYy XGZuaWxcZmNoYXJzZXQyIFN5bWJvbDt9DQp7XGYzXGZtb2Rlcm5cZmNoYXJzZXQwIENvdXJpZXIg TmV3O319DQp7XGNvbG9ydGJsXHJlZDBcZ3JlZW4wXGJsdWUwO1xyZWQwXGdyZWVuMFxibHVlMjU1 O30NClx1YzFccGFyZFxwbGFpblxkZWZ0YWIzNjAgXGYwXGZzMjQgDQp7XCpcaHRtbHRhZzI0MyA8 IURPQ1RZUEUgaHRtbCBQVUJMSUMgIi0vL1czQy8vRFREIEhUTUwgNC4wMSBUcmFuc2l0aW9uYWwv L0VOIj59DQp7XCpcaHRtbHRhZzMgXHBhciB9DQp7XCpcaHRtbHRhZzE5IDxodG1sPn0NCntcKlxo dG1sdGFnMiBccGFyIH0NCntcKlxodG1sdGFnMzQgPGhlYWQ+fQ0Ke1wqXGh0bWx0YWcxIFxwYXIg fQ0Ke1wqXGh0bWx0YWcyNDEgICB9DQp7XCpcaHRtbHRhZzI0MSA8REVGQU5HRURfbWV0YSBodHRw LWVxdWl2PSJDb250ZW50LVR5cGUiIGNvbnRlbnQ9InRleHQvaHRtbDtjaGFyc2V0PUlTTy04ODU5 LTEiPn0NCntcKlxodG1sdGFnMSBccGFyIH0NCntcKlxodG1sdGFnMjQxICAgfQ0Ke1wqXGh0bWx0 YWcxNzcgPHRpdGxlPn0NCntcKlxodG1sdGFnMjQxIH0NCntcKlxodG1sdGFnMTg1IDwvdGl0bGU+ fQ0Ke1wqXGh0bWx0YWcxIFxwYXIgfQ0Ke1wqXGh0bWx0YWc0MSA8L2hlYWQ+fQ0Ke1wqXGh0bWx0 YWcyIFxwYXIgfQ0Ke1wqXGh0bWx0YWc1MCA8Ym9keSB0ZXh0PSIjMDAwMDAwIiBiZ2NvbG9yPSIj ZmZmZmZmIj59XGh0bWxydGYgXHZpZXdraW5kNQ0Ke1wqXGJhY2tncm91bmQge1xzaHB7XCpcc2hw aW5zdHtcc3B7XHNuIGZpbGxDb2xvcn17XHN2IDE2Nzc3MjE1fX17XHNwe1xzbiBmRmlsbGVkfXtc c3YgMX19fX19XGh0bWxydGYwIA0Ke1wqXGh0bWx0YWcwIFxwYXIgfXtcKlxodG1sdGFnNjR9XGh0 bWxydGYge1xodG1scnRmMCBIb3cgdG8gemVybyBhIGNvbXBsZXRlIFJFQ09SRDoNCntcKlxodG1s dGFnMTE2IDxicj59XGh0bWxydGYgXGxpbmUNClxodG1scnRmMCANCntcKlxodG1sdGFnNCBccGFy IH0NCntcKlxodG1sdGFnMTE2IDxicj59XGh0bWxydGYgXGxpbmUNClxodG1scnRmMCANCntcKlxo dG1sdGFnNCBccGFyIH1WQVIgciwgDQp7XCpcaHRtbHRhZzg0IDxiPn1caHRtbHJ0ZiB7XGIgXGh0 bWxydGYwIHplcm8NCntcKlxodG1sdGFnOTIgPC9iPn1caHRtbHJ0ZiB9XGh0bWxydGYwIDogUkVD T1JEIGEsIGIsIGM6IFQgLi4uIEVORDsgLi4uDQp7XCpcaHRtbHRhZzExNiA8YnI+fVxodG1scnRm IFxsaW5lDQpcaHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzQgXHBhciB9DQp7XCpcaHRtbHRhZzExNiA8 YnI+fVxodG1scnRmIFxsaW5lDQpcaHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzQgXHBhciB9UFJPQ0VE VVJFIFJlYWQqOw0Ke1wqXGh0bWx0YWcxMTYgPGJyPn1caHRtbHJ0ZiBcbGluZQ0KXGh0bWxydGYw IA0Ke1wqXGh0bWx0YWc0IFxwYXIgfQ0Ke1wqXGh0bWx0YWc4NCAmbmJzcDt9XGh0bWxydGYgXCdh MFxodG1scnRmMCANCntcKlxodG1sdGFnODQgJm5ic3A7fVxodG1scnRmIFwnYTBcaHRtbHJ0ZjAg DQp7XCpcaHRtbHRhZzg0ICZuYnNwO31caHRtbHJ0ZiBcJ2EwXGh0bWxydGYwICBCRUdJTiByLmE6 PSBhOyByLmI6PSBiOiByLmM6PSBjOyAuLi4gRU5EIFJlYWQ7DQp7XCpcaHRtbHRhZzg0ICZuYnNw O31caHRtbHJ0ZiBcJ2EwXGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc4NCAmbmJzcDt9XGh0bWxydGYg XCdhMFxodG1scnRmMCAgKCogcHV0IHdoYXQgeW91DQp7XCpcaHRtbHRhZzQgXHBhciB9XGh0bWxy dGYgIFxodG1scnRmMCBuZWVkIGludG8gcmVjb3JkICJyIiBmaWVsZHMgKikNCntcKlxodG1sdGFn MTE2IDxicj59XGh0bWxydGYgXGxpbmUNClxodG1scnRmMCANCntcKlxodG1sdGFnNCBccGFyIH0N CntcKlxodG1sdGFnMTE2IDxicj59XGh0bWxydGYgXGxpbmUNClxodG1scnRmMCANCntcKlxodG1s dGFnNCBccGFyIH1QUk9DRURVUkUgWmVybyo7DQp7XCpcaHRtbHRhZzExNiA8YnI+fVxodG1scnRm IFxsaW5lDQpcaHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzQgXHBhciB9DQp7XCpcaHRtbHRhZzg0ICZu YnNwO31caHRtbHJ0ZiBcJ2EwXGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc4NCAmbmJzcDt9XGh0bWxy dGYgXCdhMFxodG1scnRmMCANCntcKlxodG1sdGFnODQgJm5ic3A7fVxodG1scnRmIFwnYTBcaHRt bHJ0ZjAgIEJFR0lOIGE6PSANCntcKlxodG1sdGFnODQgPGI+fVxodG1scnRmIHtcYiBcaHRtbHJ0 ZjAgemVybyANCntcKlxodG1sdGFnOTIgPC9iPn1caHRtbHJ0ZiB9XGh0bWxydGYwIEVORCBaZXJv Ow0Ke1wqXGh0bWx0YWc4NCAmbmJzcDt9XGh0bWxydGYgXCdhMFxodG1scnRmMCANCntcKlxodG1s dGFnODQgJm5ic3A7fVxodG1scnRmIFwnYTBcaHRtbHJ0ZjAgICgqIHRoaXMgYSB2ZXJ5IGVmZmlj aWVudCBhbmQNCntcKlxodG1sdGFnNCBccGFyIH1caHRtbHJ0ZiAgXGh0bWxydGYwIGVsZWdhbnQg d2F5IHRvIGZpbGwgd2l0aCB6ZXJvZXMgYSBjb21wbGV0ZSBzdHJ1Y3R1cmUgKikNCntcKlxodG1s dGFnMTE2IDxicj59XGh0bWxydGYgXGxpbmUNClxodG1scnRmMCANCntcKlxodG1sdGFnNCBccGFy IH0NCntcKlxodG1sdGFnMTE2IDxicj59XGh0bWxydGYgXGxpbmUNClxodG1scnRmMCANCntcKlxo dG1sdGFnNCBccGFyIH1PZiBjb3Vyc2UgeW91IG5lZWQgYSAiemVybyIgZm9yIGVhY2gga2luZCBv ZiBSRUNPUkQuDQp7XCpcaHRtbHRhZzExNiA8YnI+fVxodG1scnRmIFxsaW5lDQpcaHRtbHJ0ZjAg DQp7XCpcaHRtbHRhZzQgXHBhciB9DQp7XCpcaHRtbHRhZzExNiA8YnI+fVxodG1scnRmIFxsaW5l DQpcaHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzQgXHBhciB9R3JlZXRpbmdzLCBSZW4NCntcKlxodG1s dGFnODQgJmVhY3V0ZTt9XGh0bWxydGYgXCdlOVxodG1scnRmMCAgRG9ydGEuDQp7XCpcaHRtbHRh ZzExNiA8YnI+fVxodG1scnRmIFxsaW5lDQpcaHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzQgXHBhciB9 VW5pdi4gZGUgQ2FyYWJvYm8uIFZlbmV6dWVsYS4NCntcKlxodG1sdGFnMTE2IDxicj59XGh0bWxy dGYgXGxpbmUNClxodG1scnRmMCANCntcKlxodG1sdGFnNCBccGFyIH0NCntcKlxodG1sdGFnMTE2 IDxicj59XGh0bWxydGYgXGxpbmUNClxodG1scnRmMCANCntcKlxodG1sdGFnNCBccGFyIH1Ib2Ys IFBoaWxpcHAgd3JvdGU6DQp7XCpcaHRtbHRhZzExNiA8YnI+fVxodG1scnRmIFxsaW5lDQpcaHRt bHJ0ZjAgDQp7XCpcaHRtbHRhZzQgXHBhciB9e1wqXGh0bWx0YWc3Mn1caHRtbHJ0ZlxwYXJ9XGh0 bWxydGYwDQoNCntcKlxodG1sdGFnOTYgPGJsb2NrcXVvdGUgdHlwZT0iY2l0ZSJccGFyICBjaXRl PSJtaWQ3NEMzREJBMUFDQTU0ODQ0Qjc4MTYxNUYyMkQwREIxOEM0OEM5OEBjbGF1ZGUuZWxlYy5j YW50ZXJidXJ5LmFjLm56Ij59XGh0bWxydGYgXHBhcg0Ke1xodG1scnRmMCANCntcKlxodG1sdGFn MCBccGFyIH0NCntcKlxodG1sdGFnMjQwICAgfQ0Ke1wqXGh0bWx0YWcxMjggPHByZSB3cmFwPSIi Pn1caHRtbHJ0ZiB7XHBhcmRccGxhaW5cZjFcZnMyMCBcaHRtbHJ0ZjAgXGh0bWxydGYge1xodG1s cnRmMCBcbGkzNjAgVGhhbmtzIGZvciB5b3VyIHJlcGxpZXM6KVxsaW5lDQpcbGluZQ0KTGVhZGlu ZyB0byBteSBuZXh0IHF1ZXN0aW9uOlxsaW5lDQpJcyB0aGVyZSBhIGJ1aWx0LWluIGZ1bmN0aW9u IHRvIHplcm8gKG9yIGZpbGwpIGV2ZXJ5dGhpbmcgaW4gYSBSRUNPUkQ/XGxpbmUNCkkgY291bGQg dXNlIFJ0bFplcm9NZW1vcnkgZnJvbSB0aGUgV2luZG93cyBBUEkgYnV0IHJhdGhlciB3b3VsZCBu b3QuXGxpbmUNClxsaW5lDQpUaGFua3MsXGxpbmUNClBoaWxpcHBcbGluZQ0KLS0tLS0tLS0tLS0t LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1cbGluZQ0KXGxpbmUNClRvIHVuc3Vic2Ny aWJlIGZyb20gdGhpcyBtYWlsaW5nIGxpc3QsIHNlbmQgYSBtZXNzYWdlIGNvbnRhaW5pbmcgdGhl IHdvcmQgInVuc3Vic2NyaWJlIiB0bzpcbGluZQ0KICAge30NCntcKlxodG1sdGFnODQgPGEgY2xh c3M9Im1vei10eHQtbGluay1hYmJyZXZpYXRlZCIgaHJlZj0ibWFpbHRvOmJsYWNrYm94LXJlcXVl c3RAb2Jlcm9uLmNoIj59XGh0bWxydGYge1xmaWVsZHtcKlxmbGRpbnN0e0hZUEVSTElOSyAibWFp bHRvOmJsYWNrYm94LXJlcXVlc3RAb2Jlcm9uLmNoIn19e1xmbGRyc2x0XGNmMVx1bCBcaHRtbHJ0 ZjAgYmxhY2tib3gtcmVxdWVzdEBvYmVyb24uY2hcaHRtbHJ0ZiB9XGh0bWxydGYwIFxodG1scnRm IH1caHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzkyIDwvYT59XGxpbmUNClxsaW5lDQpUbyBnZXQgYSBs aXN0IG9mIHZhbGlkIGUtbWFpbCBjb21tYW5kcyBhbmQgaW5zdHJ1Y3Rpb25zIG9uIHRoZWlyIHVz YWdlLCBzZW5kIGEgbWVzc2FnZSBjb250YWluaW5nIHRoZSB3b3JkICJoZWxwIiB0byB0aGUgYWJv dmUgYWRkcmVzcy5cbGluZQ0KXGxpbmUNClNlbmQgYW55IHByb2JsZW0gcmVwb3J0cyBvciBxdWVz dGlvbnMgcmVsYXRlZCB0byB0aGlzIGVtYWlsIGxpc3QgdG8gdGhlIGxpc3Qgb3duZXIgYXRcbGlu ZQ0KICAge30NCntcKlxodG1sdGFnODQgPGEgY2xhc3M9Im1vei10eHQtbGluay1hYmJyZXZpYXRl ZCIgaHJlZj0ibWFpbHRvOm93bmVyLWJsYWNrYm94QG9iZXJvbi5jaCI+fVxodG1scnRmIHtcZmll bGR7XCpcZmxkaW5zdHtIWVBFUkxJTksgIm1haWx0bzpvd25lci1ibGFja2JveEBvYmVyb24uY2gi fX17XGZsZHJzbHRcY2YxXHVsIFxodG1scnRmMCBvd25lci1ibGFja2JveEBvYmVyb24uY2hcaHRt bHJ0ZiB9XGh0bWxydGYwIFxodG1scnRmIH1caHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzkyIDwvYT59 XGxpbmUNClxsaW5lDQpDdXJyZW50IHBvc3RpbmcgcG9saWN5OlxsaW5lDQpcbGluZQ0KYSkgVG8g cG9zdCB5b3Ugc2hvdWxkIHVzZSB0aGUgc2FtZSBhZGRyZXNzIGJ5IHdoaWNoIHlvdSBhcmUgc3Vi c2NyaWJlZCB0byB0aGUgbWFpbGluZyBsaXN0LiBUaGF0IHdheSwgdGhlIGxpc3Qgc2VydmVyIHdp bGwgcmVjb2duaXplIHlvdSBhcyBzdWJzY3JpYmVyIGFuZCBmb3J3YXJkIHlvdXIgcG9zdGluZyBp bW1lZGlhdGVseSwgd2l0aG91dCBjcmVhdGluZyBhbnkgb3ZlcmhlYWQuXGxpbmUNClxsaW5lDQpi KSBJZiwgZm9yIHNvbWUgcmVhc29uLCB5b3UgY2Fubm90IHBvc3QgZnJvbSB0aGUgYWRkcmVzcywg Ynkgd2hpY2ggeW91IGFyZSBzdWJzY3JpYmVkLCB5b3VyIG1lc3NhZ2Ugd2lsbCBiZSBtb2RlcmF0 ZWQgdG8gYXZvaWQgc3BhbS4gUGxlYXNlIHVuZGVyc3RhbmQgdGhhdCBtb2RlcmF0aW9uIHdpbGwg b2Z0ZW4gY2F1c2Ugc29tZSBkZWxheSwgaW4gcGFydGljdWxhciBvdmVyIHdlZWtlbmRzIG9yIGhv bHlkYXlzLlxsaW5lDQpcbGluZQ0KXGxpbmUNCiAgXGh0bWxydGZccGFyfVxodG1scnRmMA0KDQp7 XCpcaHRtbHRhZzEzNiA8L3ByZT59XGh0bWxydGYgfVxodG1scnRmMCANCntcKlxodG1sdGFnMCBc cGFyIH0NCntcKlxodG1sdGFnMTA0IDwvYmxvY2txdW90ZT59XGh0bWxydGYgfVxwYXINClxodG1s cnRmMCANCntcKlxodG1sdGFnMCBccGFyIH0NCntcKlxodG1sdGFnNTggPC9ib2R5Pn0NCntcKlxo dG1sdGFnMiBccGFyIH0NCntcKlxodG1sdGFnMjcgPC9odG1sPn0NCntcKlxodG1sdGFnMyBccGFy IH0NCntcKlxodG1sdGFnMyBccGFyIH17XCpcaHRtbHRhZzY0fVxodG1scnRmIHtcaHRtbHJ0ZjAg LS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0NCntcKlxodG1sdGFn NCBccGFyIH1caHRtbHJ0ZiAgXGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc0IFxwYXIgfVRvIHVuc3Vi c2NyaWJlIGZyb20gdGhpcyBtYWlsaW5nIGxpc3QsIHNlbmQgYSBtZXNzYWdlIGNvbnRhaW5pbmcg dGhlIHdvcmQgInVuc3Vic2NyaWJlIiB0bzoNCntcKlxodG1sdGFnNCBccGFyIH1caHRtbHJ0ZiAg XGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc4NCAgICB9YmxhY2tib3gtcmVxdWVzdEBvYmVyb24uY2gN CntcKlxodG1sdGFnNCBccGFyIH1caHRtbHJ0ZiAgXGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc0IFxw YXIgfVRvIGdldCBhIGxpc3Qgb2YgdmFsaWQgZS1tYWlsIGNvbW1hbmRzIGFuZCBpbnN0cnVjdGlv bnMgb24gdGhlaXIgdXNhZ2UsIHNlbmQgYSBtZXNzYWdlIGNvbnRhaW5pbmcgdGhlIHdvcmQgImhl bHAiIHRvIHRoZSBhYm92ZSBhZGRyZXNzLg0Ke1wqXGh0bWx0YWc0IFxwYXIgfVxodG1scnRmICBc aHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzQgXHBhciB9U2VuZCBhbnkgcHJvYmxlbSByZXBvcnRzIG9y IHF1ZXN0aW9ucyByZWxhdGVkIHRvIHRoaXMgZW1haWwgbGlzdCB0byB0aGUgbGlzdCBvd25lciBh dA0Ke1wqXGh0bWx0YWc0IFxwYXIgfVxodG1scnRmICBcaHRtbHJ0ZjAgDQp7XCpcaHRtbHRhZzg0 ICAgIH1vd25lci1ibGFja2JveEBvYmVyb24uY2gNCntcKlxodG1sdGFnNCBccGFyIH1caHRtbHJ0 ZiAgXGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc0IFxwYXIgfUN1cnJlbnQgcG9zdGluZyBwb2xpY3k6 DQp7XCpcaHRtbHRhZzQgXHBhciB9XGh0bWxydGYgIFxodG1scnRmMCANCntcKlxodG1sdGFnNCBc cGFyIH1hKSBUbyBwb3N0IHlvdSBzaG91bGQgdXNlIHRoZSBzYW1lIGFkZHJlc3MgYnkgd2hpY2gg eW91IGFyZSBzdWJzY3JpYmVkIHRvIHRoZSBtYWlsaW5nIGxpc3QuIFRoYXQgd2F5LCB0aGUgbGlz dCBzZXJ2ZXIgd2lsbCByZWNvZ25pemUgeW91IGFzIHN1YnNjcmliZXIgYW5kIGZvcndhcmQgeW91 ciBwb3N0aW5nIGltbWVkaWF0ZWx5LCB3aXRob3V0IGNyZWF0aW5nIGFueSBvdmVyaGVhZC4NCntc KlxodG1sdGFnNCBccGFyIH1caHRtbHJ0ZiAgXGh0bWxydGYwIA0Ke1wqXGh0bWx0YWc0IFxwYXIg fWIpIElmLCBmb3Igc29tZSByZWFzb24sIHlvdSBjYW5ub3QgcG9zdCBmcm9tIHRoZSBhZGRyZXNz LCBieSB3aGljaCB5b3UgYXJlIHN1YnNjcmliZWQsIHlvdXIgbWVzc2FnZSB3aWxsIGJlIG1vZGVy YXRlZCB0byBhdm9pZCBzcGFtLiBQbGVhc2UgdW5kZXJzdGFuZCB0aGF0IG1vZGVyYXRpb24gd2ls bCBvZnRlbiBjYXVzZSBzb21lIGRlbGF5LCBpbiBwYXJ0aWN1bGFyIG92ZXIgd2Vla2VuZHMgb3Ig aG9seWRheXMuDQp7XCpcaHRtbHRhZzQgXHBhciB9XGh0bWxydGYgIFxodG1scnRmMCB7XCpcaHRt bHRhZzcyfVxodG1scnRmXHBhcn1caHRtbHJ0fX0A0O8= ----boundary-LibPST-iamunique-653925165_-_--- Received on Fri Sep 10 2004 - 05:33:29 UTC