paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-07 19:27:12 +01:00
Code Issues Packages Projects Releases Wiki Activity

* GetPrimaryIndexFields is now a public class method, needed in designer

Browse Source 
git-svn-id: trunk@42021 -
This commit is contained in:
michael 2019-05-07 15:40:00 +00:00
parent ebf2e277ab
commit 77fa4aaebd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-web/src/restbridge/sqldbrestschema.pp
View File

@ -256,7 +256,6 @@ Type
procedure SetResources(AValue: TSQLDBRestResourceList);
Protected
function CreateResourceList: TSQLDBRestResourceList; virtual;
function GetPrimaryIndexFields(Q: TSQLQuery): TStringArray; virtual;
function ProcessIdentifier(const S: UTF8String): UTF8String; virtual;
Function AttachProcessor(aProcessor : TSQLDBRestCustomBusinessProcessor) : Boolean; Virtual;
Function DetachProcessor(aProcessor : TSQLDBRestCustomBusinessProcessor) : Boolean; Virtual;
@ -273,6 +272,7 @@ Type
Procedure LoadFromFile(Const aFileName : UTF8String);
Procedure LoadFromStream(Const aStream : TStream);
Procedure FromJSON(aData: TJSONData;const aPropName: UTF8String='');
Class function GetPrimaryIndexFields(Q: TSQLQuery): TStringArray; virtual;
procedure PopulateResourceFields(aConn: TSQLConnection; aRes: TSQLDBRestResource; aMinFieldOpts : TRestFieldOptions = []); virtual;
procedure PopulateResources(aConn: TSQLConnection; aTables: array of string; aMinFieldOpts: TRestFieldOptions= []);
Procedure PopulateResources(aConn : TSQLConnection; aTables : TStrings = Nil; aMinFieldOpts : TRestFieldOptions = []);
@ -627,7 +627,7 @@ begin
end;
function TSQLDBRestSchema.GetPrimaryIndexFields(Q: TSQLQuery): TStringArray;
class function TSQLDBRestSchema.GetPrimaryIndexFields(Q: TSQLQuery): TStringArray;
Var
C,I : Integer;