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

* Need fielddefs

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-02-18 16:38:24 +01:00
parent e09bf7e266
commit 1b4ad74b68
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-db/src/codegen/fpcgtypesafedataset.pp
View File

@ -128,6 +128,7 @@ Type
Constructor Create(AOwner : TComponent); override; Constructor Create(AOwner : TComponent); override;
Destructor Destroy; override; Destructor Destroy; override;
Class Function NeedsSQL: Boolean; override; Class Function NeedsSQL: Boolean; override;
Class Function NeedsFieldDefs : Boolean; override;
Property SafeOpts : TGenTypeSafeDatasetOptions Read GetSafeOpts; Property SafeOpts : TGenTypeSafeDatasetOptions Read GetSafeOpts;
end; end;
@ -818,6 +819,12 @@ begin
Result:=True; Result:=True;
end; end;
Class Function TDDTypeSafeDatasetCodeGenerator.NeedsFieldDefs : Boolean;
begin
Result:=True;
end;
{ TGenTypeSafeDatasetOptions } { TGenTypeSafeDatasetOptions }
function TGenTypeSafeDatasetOptions.GetInterfaceName: String; function TGenTypeSafeDatasetOptions.GetInterfaceName: String;