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

* Item class is now a class function in TDDFieldDefs

Browse Source 
git-svn-id: trunk@14205 -
This commit is contained in:
michael 2009-11-17 20:30:53 +00:00
parent bf39a852b4
commit b732012438
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-db/src/datadict/fpdatadict.pp
View File

@ -108,6 +108,7 @@ Type
Property Hint : String Read FHint Write FHint;
Property ProviderFlags : TProviderFlags Read FProviderFlags Write FProviderFlags;
end;
TDDFieldDefClass = Class of TDDFieldDef;
{ TDDTableCollection }
TDDTableCollection = Class(TIniCollection)
@ -135,6 +136,7 @@ Type
Public
Constructor Create(ATableDef : TDDTableDef);
Constructor Create(ATableName : string);
Class Function FieldDefClass : TDDFieldDefClass; virtual;
Property TableDef : TDDTableDef Read FTableDef;
Property TableName : String Read GetTableName Write SetTableName;
Function AddField(AFieldName: String = '') : TDDFieldDef;
@ -1242,24 +1244,30 @@ end;
constructor TDDFieldDefs.Create(ATableDef: TDDTableDef);
begin
Inherited Create(TDDFieldDef);
Inherited Create(FieldDefClass);
FPrefix:='Field';
SetTableDef(ATableDef);
end;
constructor TDDFieldDefs.Create(ATableName: String);
begin
Inherited Create(TDDFieldDef);
Inherited Create(FieldDefClass);
FPrefix:='Field';
TableName:=ATableName;
end;
class function TDDFieldDefs.FieldDefClass: TDDFieldDefClass;
begin
Result:=TDDFieldDef
end;
function TDDFieldDefs.GetField(Index : Integer): TDDFieldDef;
begin
Result:=TDDFieldDef(Items[Index]);
end;
procedure TDDFieldDefs.SetField(Index : Integer; const AValue: TDDFieldDef);
begin
Items[Index]:=AValue;