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

fcl-db: base: formatting (char-case)

Browse Source 
git-svn-id: trunk@25293 -
This commit is contained in:
lacak 2013-08-19 11:43:16 +00:00
parent a1fa1954b8
commit 9cf1ef90cd
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/src/base/db.pas
View File

@ -72,8 +72,8 @@ type
TFields = Class; TFields = Class;
TDataSet = class; TDataSet = class;
TDataBase = Class; TDataBase = Class;
TDatasource = Class; TDataSource = Class;
TDatalink = Class; TDataLink = Class;
TDBTransaction = Class; TDBTransaction = Class;
{ Exception classes } { Exception classes }
@ -1406,7 +1406,7 @@ type
Procedure DoInternalOpen; Procedure DoInternalOpen;
Function GetBuffer (Index : longint) : TRecordBuffer; Function GetBuffer (Index : longint) : TRecordBuffer;
Function GetField (Index : Longint) : TField; Function GetField (Index : Longint) : TField;
Procedure RegisterDataSource(ADatasource : TDataSource); Procedure RegisterDataSource(ADataSource : TDataSource);
Procedure RemoveField (Field : TField); Procedure RemoveField (Field : TField);
procedure SetConstraints(Value: TCheckConstraints); procedure SetConstraints(Value: TCheckConstraints);
Procedure SetField (Index : Longint;Value : TField); Procedure SetField (Index : Longint;Value : TField);
@ -1414,7 +1414,7 @@ type
Procedure ShiftBuffersBackward; Procedure ShiftBuffersBackward;
Function TryDoing (P : TDataOperation; Ev : TDatasetErrorEvent) : Boolean; Function TryDoing (P : TDataOperation; Ev : TDatasetErrorEvent) : Boolean;
Function GetActive : boolean; Function GetActive : boolean;
Procedure UnRegisterDataSource(ADatasource : TDatasource); Procedure UnRegisterDataSource(ADataSource : TDataSource);
Procedure UpdateFieldDefs; Procedure UpdateFieldDefs;
procedure SetBlockReadSize(AValue: Integer); virtual; procedure SetBlockReadSize(AValue: Integer); virtual;
Procedure SetFieldDefs(AFieldDefs: TFieldDefs); Procedure SetFieldDefs(AFieldDefs: TFieldDefs);