paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:06:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Corrected the Fields property.

Browse Source
This commit is contained in:
michael 2004-03-19 23:19:51 +00:00
parent 092692f688
commit 61a8c3d1cb
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fcl/db/db.pp
View File

@ -985,14 +985,14 @@ type
property EOF: Boolean read FEOF; property EOF: Boolean read FEOF;
property FieldCount: Longint read GetFieldCount; property FieldCount: Longint read GetFieldCount;
property FieldDefs: TFieldDefs read FFieldDefs write FFieldDefs; property FieldDefs: TFieldDefs read FFieldDefs write FFieldDefs;
property Fields[Index: Longint]: TField read GetField write SetField; // property Fields[Index: Longint]: TField read GetField write SetField;
property Found: Boolean read FFound; property Found: Boolean read FFound;
property Modified: Boolean read FModified; property Modified: Boolean read FModified;
property RecordCount: Longint read GetRecordCount; property RecordCount: Longint read GetRecordCount;
property RecNo: Longint read FRecNo write FRecNo; property RecNo: Longint read FRecNo write FRecNo;
property RecordSize: Word read FRecordSize; property RecordSize: Word read FRecordSize;
property State: TDataSetState read FState; property State: TDataSetState read FState;
// property Fields : TFields Read FFieldList; property Fields : TFields Read FFieldList;
property Filter: string read FFilterText write FFilterText; property Filter: string read FFilterText write FFilterText;
property Filtered: Boolean read FFiltered write FFiltered default False; property Filtered: Boolean read FFiltered write FFiltered default False;
property FilterOptions: TFilterOptions read FFilterOptions write FFilterOptions; property FilterOptions: TFilterOptions read FFilterOptions write FFilterOptions;
@ -1477,7 +1477,10 @@ end.
{ {
$Log$ $Log$
Revision 1.13 2004-02-25 16:29:26 michael Revision 1.14 2004-03-19 23:19:51 michael
+ Corrected the Fields property.
Revision 1.13 2004/02/25 16:29:26 michael
+ Added AsInteger to TField. Maps to AsLongint for now + Added AsInteger to TField. Maps to AsLongint for now
Revision 1.12 2003/11/09 21:23:10 michael Revision 1.12 2003/11/09 21:23:10 michael