Log On

Server Response from: CC1

ID: 25386, for-in-loop with TDataSet

by Uwe Raabe Email: Anonymous

Delphi Magic that lets you iterate over all records in a TDataSet using a for-in-loop and access field values like properties.

Download

Details

CDN Login Required to Download. (You will be redirected to the login page if you click on the Download Link)

To download this, you must have registered:

A free membership

For Delphi, Version 10.5 to 11.0 644 downloads
Copyright: No significant restrictions

Terms of use: Borland use at your own risk disclaimer

Updated on Mon, 31 Dec 2007 09:03:12 GMT
Originally uploaded on Mon, 31 Dec 2007 09:03:08 GMT

Explore the files in this upload

Description

A unit that enables for-in-loops on TDataSet descendants and enables access to the field values using property-like syntax. Main goal is to make source code more readable.

This is also an example of how new Delphi techniques like enumerators, class helpers and invokable custom variants can be combined to make something useful - at least for some people.

Latest Comments View All Add New

Move mouse over comment to see the full text

Reply Posted by Uwe Raabe on Jan 13 2008

re: for-in-loop with TDataSet

It should be possible: - delete the class helper and the enumerator class - declare the VarDataRecordCreate function in the interface section - call this function in your code to get the...

Reply Posted by Maximiliano Robaina on Jan 12 2008

for-in-loop with TDataSet

Is possible by adapting this to work with Delphi 6 ? No Dataset Enumerator, but yes Variant Record type.

Reply Posted by Uwe Raabe on Jan 03 2008

re: for-in-loop with TDataSet

Well, I would rather have the enumerator as public class as it allows to inherit from it and make some special purpose things. For instance, take an TIBQuery like in the example, make a new...

Reply Posted by Cobus Kruger on Jan 03 2008

for-in-loop with TDataSet

Wow! Absolutely stunning! I've done the dataset-enumerator-with-a-class-helper thing before, but adding the custom variant is what makes this solution just fantastic. Just thinking now and keeping...

© Copyright 2008 Embarcadero Technologies, Inc. All Rights Reserved. Contact Us Legal Notices Privacy Policy Report Software Piracy