paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 03:26:14 +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;
TDataSet = class;
TDataBase = Class;
TDatasource = Class;
TDatalink = Class;
TDataSource = Class;
TDataLink = Class;
TDBTransaction = Class;
{ Exception classes }
@ -1406,7 +1406,7 @@ type
Procedure DoInternalOpen;
Function GetBuffer (Index : longint) : TRecordBuffer;
Function GetField (Index : Longint) : TField;
Procedure RegisterDataSource(ADatasource : TDataSource);
Procedure RegisterDataSource(ADataSource : TDataSource);
Procedure RemoveField (Field : TField);
procedure SetConstraints(Value: TCheckConstraints);
Procedure SetField (Index : Longint;Value : TField);
@ -1414,7 +1414,7 @@ type
Procedure ShiftBuffersBackward;
Function TryDoing (P : TDataOperation; Ev : TDatasetErrorEvent) : Boolean;
Function GetActive : boolean;
Procedure UnRegisterDataSource(ADatasource : TDatasource);
Procedure UnRegisterDataSource(ADataSource : TDataSource);
Procedure UpdateFieldDefs;
procedure SetBlockReadSize(AValue: Integer); virtual;
Procedure SetFieldDefs(AFieldDefs: TFieldDefs);