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

* Allow to create arrays and lists

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-07-21 22:36:17 +02:00
parent 90e80fba48
commit e0b8e2f5fe
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-db/src/codegen/fpcgfieldmap.pp
View File

@ -32,7 +32,8 @@ Type
{ TGenFieldMapOptions } { TGenFieldMapOptions }
TFieldMapOption = (fmoPublicFields,fmoRequireFields,fmoLoadObject,fmoCreateParamMap,fmoSaveObject,fmoOverrideTransformString,fmoDefineArray,fmoDefineList); TFieldMapOption = (fmoPublicFields,fmoRequireFields,fmoLoadObject,fmoCreateParamMap,fmoSaveObject,fmoOverrideTransformString,fmoDefineArray,fmoDefineList);
TListParent = (lpFPList,lpList,lpObjectList,lpFPObjectList,lpGenericList); TListParent = (lpFPList,lpList,lpObjectList,lpFPObjectList,lpGenericList,lpFGLGenericList);
TFieldMapOptions = Set of TFieldMapOption; TFieldMapOptions = Set of TFieldMapOption;
TGenFieldMapOptions = Class(TClassCodeGeneratorOptions) TGenFieldMapOptions = Class(TClassCodeGeneratorOptions)
@ -161,6 +162,7 @@ begin
case FieldMapOpts.ListParent of case FieldMapOpts.ListParent of
lpList, lpList,
lpGenericList : Result:='TList'; lpGenericList : Result:='TList';
lpFGLGenericList :Result:='TFPGList';
lpFPList : Result:='TFPList'; lpFPList : Result:='TFPList';
lpFPObjectList : Result:='TFPObjectList'; lpFPObjectList : Result:='TFPObjectList';
lpObjectList : Result:='TObjectList'; lpObjectList : Result:='TObjectList';
@ -235,6 +237,7 @@ begin
lpFPObjectList, lpFPObjectList,
lpObjectList: Result:='contnrs'; lpObjectList: Result:='contnrs';
lpGenericList : Result:='Generics.Collections'; lpGenericList : Result:='Generics.Collections';
lpFGLGenericList : Result:='fgl';
else else
Result:=''; Result:='';
end; end;