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

* Sync stored specifier names

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-04-27 10:00:36 +02:00
parent 045b938dfa
commit a2a9db1e06
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-db/src/sqldb/sqldb.pp
View File

@ -518,7 +518,7 @@ type
function GetSQLConnection: TSQLConnection;
function GetSQLTransaction: TSQLTransaction;
function GetStatementType : TStatementType;
function IsMacrosStored: Boolean;
function HasMacros: Boolean;
Function HasParams : Boolean;
Function NeedLastInsertID: TField;
procedure SetMacroChar(AValue: Char);
@ -643,7 +643,7 @@ type
Property Options : TSQLQueryOptions Read FOptions Write SetOptions default [];
property Params : TParams read GetParams Write SetParams stored HasParams;
Property ParamCheck : Boolean Read GetParamCheck Write SetParamCheck default true;
property Macros : TParams read GetMacros Write SetMacros stored IsMacrosStored;
property Macros : TParams read GetMacros Write SetMacros stored HasMacros;
Property MacroCheck : Boolean Read GetMacroCheck Write SetMacroCheck default false;
Property MacroChar : Char Read GetMacroChar Write SetMacroChar default DefaultMacroChar;
property ParseSQL : Boolean read GetParseSQL write SetParseSQL default true;
@ -3448,7 +3448,7 @@ begin
end;
function TCustomSQLQuery.IsMacrosStored: Boolean;
function TCustomSQLQuery.HasMacros: Boolean;
begin
Result := Macros.Count > 0;
end;