paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-25 21:49:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-db: return default values for (published) properties where getters are not implemented yet.

Browse Source 
git-svn-id: trunk@49238 -
(cherry picked from commit d7bef47c24)
This commit is contained in:
lacak 2021-04-20 06:38:41 +00:00 committed by marcoonthegit
parent d32f2867f5
commit 340d7d1308
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-db/src/base/fields.inc
View File

@ -68,12 +68,13 @@ end;
function TFieldDef.AddChild: TFieldDef;
begin
// http://docwiki.embarcadero.com/Libraries/Sydney/en/Data.DB.TFieldDef.AddChild
// Adds a new TFieldDef object to the ChildDefs array.
end;
function TFieldDef.GetChildDefs: TFieldDefs;
begin
Result:=nil;
end;
procedure TFieldDef.SetChildDefs(AValue: TFieldDefs);
@ -84,11 +85,13 @@ end;
function TFieldDef.HasChildDefs: Boolean;
begin
// http://docwiki.embarcadero.com/Libraries/Sydney/en/Data.DB.TFieldDef.HasChildDefs
Result:=False;
end;
function TFieldDef.GetParentDef: TFieldDef;
begin
// http://docwiki.embarcadero.com/Libraries/Sydney/en/Data.DB.TFieldDef.ParentDef
Result:=nil;
end;
procedure TFieldDef.Assign(APersistent: TPersistent);
@ -3705,6 +3708,7 @@ end;
function TObjectField.GetFieldCount: Integer;
begin
// http://docwiki.embarcadero.com/Libraries/Sydney/en/Data.DB.TObjectField.GetFieldCount
Result:=0;
end;
function TObjectField.GetFields: TFields;
@ -3716,6 +3720,7 @@ end;
function TObjectField.GetFieldValue(AIndex: Integer): Variant;
begin
// http://docwiki.embarcadero.com/Libraries/Sydney/en/Data.DB.TObjectField.GetFieldValue
Result:=NULL;
end;
procedure TObjectField.SetFieldValue(AIndex: Integer; const AValue: Variant);
@ -3732,6 +3737,7 @@ end;
function TObjectField.GetAsVariant: Variant;
begin
// http://docwiki.embarcadero.com/Libraries/Sydney/en/Data.DB.TObjectField.GetAsVariant
Result:=NULL;
end;
procedure TObjectField.SetVarValue(const AValue: Variant);