Watch, Follow, &
Connect with Us

For forums, blogs and more please visit our
Developer Tools Community.


ID: 12462, Permit hidden fields to be passed and used properly

by Dan Miser Email: Anonymous


Download Details
FTP  download also available 0 bytes
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 2.0  to 2.0 20 downloads
Copyright: No significant restrictions


Size: 0 bytes
Updated on Fri, 14 May 1999 00:00:00 GMT
Originally uploaded on Fri, 14 May 1999 00:00:00 GMT
Description
DB.PAS
// Allows hidden fields (ProviderFlags) to be used properly
(**) (* JoshDahlby (99-01-27): replace method *)
procedure TDataSet.CreateFields;
var
I: Integer;
begin
if ObjectView then
begin
for I := 0 to FieldDefs.Count - 1 do
with FieldDefs[I] do
if (DataType <> ftUnknown) and
not ((faHiddenCol in Attributes) and not FieldDefs.HiddenFields) then
CreateField(Self);
end else
begin
for I := 0 to FieldDefList.Count - 1 do
with FieldDefList[I] do
if (DataType <> ftUnknown) and not (DataType in ObjectFieldTypes) and
not ((faHiddenCol in Attributes) and not FieldDefs.HiddenFields) then
CreateField(Self, nil, FieldDefList.Strings[I]);
end;
end;

   Latest Comments  View All Add New

Move mouse over comment to see the full text

Could not retrieve comments. Please try again later.

Server Response from: ETNACDC03