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

* Fix checkconstraints initialization and property setter (by Luiz Americo)

Browse Source 
git-svn-id: trunk@20881 -
This commit is contained in:
michael 2012-04-15 09:34:09 +00:00
parent fcb4bf4854
commit 5219b118d8
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-db/src/base/dataset.inc
View File

@ -2240,6 +2240,11 @@ begin
//!! To be implemented
end;
procedure TDataSet.SetConstraints(Value: TCheckConstraints);
begin
FConstraints.Assign(Value);
end;
Function TDataset.Getfieldcount : Longint;
begin

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

@ -1399,6 +1399,7 @@ type
Function GetField (Index : Longint) : TField;
Procedure RegisterDataSource(ADatasource : TDataSource);
Procedure RemoveField (Field : TField);
procedure SetConstraints(Value: TCheckConstraints);
Procedure SetField (Index : Longint;Value : TField);
Procedure ShiftBuffersForward;
Procedure ShiftBuffersBackward;
@ -1503,7 +1504,7 @@ type
property CalcBuffer: TRecordBuffer read FCalcBuffer;
property CalcFieldsSize: Longint read FCalcFieldsSize;
property InternalCalcFields: Boolean read FInternalCalcFields;
property Constraints: TCheckConstraints read FConstraints write FConstraints;
property Constraints: TCheckConstraints read FConstraints write SetConstraints;
function AllocRecordBuffer: TRecordBuffer; virtual;
procedure FreeRecordBuffer(var Buffer: TRecordBuffer); virtual;
procedure GetBookmarkData(Buffer: TRecordBuffer; Data: Pointer); virtual;
@ -2419,6 +2420,7 @@ Function TCheckConstraints.GetItem(Index : Longint) : TCheckConstraint;
begin
//!! To be implemented
Result := nil;
end;
@ -2433,6 +2435,7 @@ function TCheckConstraints.GetOwner: TPersistent;
begin
//!! To be implemented
Result := nil;
end;
@ -2440,6 +2443,7 @@ constructor TCheckConstraints.Create(AOwner: TPersistent);
begin
//!! To be implemented
inherited Create(TCheckConstraint);
end;
@ -2447,6 +2451,7 @@ function TCheckConstraints.Add: TCheckConstraint;
begin
//!! To be implemented
Result := nil;
end;
{ TLookupList }