Add missing TDBConnection.IsPostgreSQL method, used in previous commit.

This commit is contained in:
Ansgar Becker
2014-10-27 19:49:52 +00:00
parent 3d29d13b42
commit b839bf7f79

View File

@ -221,6 +221,7 @@ type
function GetNetTypeGroup: TNetTypeGroup;
function IsMySQL: Boolean;
function IsMSSQL: Boolean;
function IsPostgreSQL: Boolean;
function IsMariaDB: Boolean;
function IsPercona: Boolean;
function IsTokudb: Boolean;
@ -1264,6 +1265,12 @@ begin
end;
function TConnectionParameters.IsPostgreSQL: Boolean;
begin
Result := NetTypeGroup = ngPgSQL;
end;
function TConnectionParameters.IsMariaDB: Boolean;
begin
Result := Pos('-mariadb', LowerCase(ServerVersion)) > 0;