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

* Enable property setter by default

Browse Source 
* Fixed index in list class

git-svn-id: trunk@23440 -
This commit is contained in:
michael 2013-01-18 14:43:34 +00:00
parent 49e3d2734e
commit 164c677cfd
1 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
packages/fcl-db/src/codegen/fpcgtiopf.pp
View File

@ -30,7 +30,13 @@ TYpe
TVisitorOption = (voRead,voReadList,voCreate,voDelete,voUpdate,
voCommonSetupParams,voSingleSaveVisitor,voRegisterVisitors);
TVisitorOptions = set of TVisitorOption;
{ TTiOPFFieldPropDef }
TTiOPFFieldPropDef = Class(TFieldPropDef)
Public
Constructor Create(ACollection : TCollection); override;
end;
{ TTiOPFCodeOptions }
TTiOPFCodeOptions = Class (TClassCodeGeneratorOptions)
@ -100,6 +106,7 @@ TYpe
// Not to be overridden.
procedure WriteListAddObject(Strings: TStrings; const ListClassName, ObjectClassName: String);
// Overrides of parent objects
Function CreateFieldPropDefs : TFieldPropDefs; override;
function AllowPropertyDeclaration(F: TFieldPropDef; AVisibility: TVisibilities): Boolean; override;
Function GetInterfaceUsesClause : string; override;
procedure WriteVisibilityStart(V: TVisibility; Strings: TStrings); override;
@ -134,6 +141,14 @@ begin
Delete(Result,1,1);
end;
{ TTiOPFFieldPropDef }
constructor TTiOPFFieldPropDef.Create(ACollection: TCollection);
begin
inherited Create(ACollection);
PropSetters:=[psWrite];
end;
{ TTiOPFCodeOptions }
function TTiOPFCodeOptions.GetListClassName: String;
@ -872,7 +887,7 @@ begin
ptSingle, ptDouble, ptExtended, ptComp :
S:='AsFloat';
ptCurrency :
S:='AsCurrency';
S:='AsFloat';
ptDateTime :
S:='AsDateTime';
ptEnumerated :
@ -1139,7 +1154,7 @@ begin
AddLn(Strings,'Public');
IncIndent;
Try
AddLn(Strings,'Property Items[Index : Integer] : %s Read GetObj Write SetObj; Default;',[ObjectClassname]);
AddLn(Strings,'Property Items[AIndex : Integer] : %s Read GetObj Write SetObj; Default;',[ObjectClassname]);
Finally
DecIndent;
end;
@ -1178,6 +1193,11 @@ begin
Addln(Strings);
end;
function TTiOPFCodeGenerator.CreateFieldPropDefs: TFieldPropDefs;
begin
Result:=TFieldPropDefs.Create(TTiOPFFieldPropDef);
end;
function TTiOPFCodeGenerator.AllowPropertyDeclaration(F: TFieldPropDef;
AVisibility: TVisibilities): Boolean;
begin