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

* Fix bug ID #32898, add FullName function to get name prepended with schema name (if any)

Browse Source 
git-svn-id: trunk@37855 -
This commit is contained in:
michael 2017-12-29 10:48:35 +00:00
parent 75f7698f6a
commit 7f99562850
1 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
packages/fcl-db/src/base/sqltypes.pp
View File

@ -28,6 +28,7 @@ type
FSchemaName: String; FSchemaName: String;
public public
constructor Create(ACollection: TSqlObjectIdentifierList; Const AObjectName: String; Const ASchemaName: String = ''); constructor Create(ACollection: TSqlObjectIdentifierList; Const AObjectName: String; Const ASchemaName: String = '');
function FullName: String;
property SchemaName: String read FSchemaName write FSchemaName; property SchemaName: String read FSchemaName write FSchemaName;
property ObjectName: String read FObjectName write FObjectName; property ObjectName: String read FObjectName write FObjectName;
end; end;
@ -49,14 +50,22 @@ implementation
{ TSqlObjectIdenfier } { TSqlObjectIdenfier }
constructor TSqlObjectIdenfier.Create(ACollection: TSqlObjectIdentifierList; constructor TSqlObjectIdenfier.Create(ACollection: TSqlObjectIdentifierList; const AObjectName: String; const ASchemaName: String = '');
const AObjectName: String; Const ASchemaName: String = '');
begin begin
inherited Create(ACollection); inherited Create(ACollection);
FSchemaName:=ASchemaName; FSchemaName:=ASchemaName;
FObjectName:=AObjectName; FObjectName:=AObjectName;
end; end;
function TSqlObjectIdenfier.FullName: String;
begin
Result:=FObjectName;
if FSchemaName<>'' then
Result:=FSchemaName+'.'+FObjectName;
end;
{ TSqlObjectIdentifierList } { TSqlObjectIdentifierList }
function TSqlObjectIdentifierList.GetIdentifier(Index: integer): TSqlObjectIdenfier; function TSqlObjectIdentifierList.GetIdentifier(Index: integer): TSqlObjectIdenfier;
@ -82,5 +91,4 @@ begin
Result.ObjectName:=AObjectName; Result.ObjectName:=AObjectName;
end; end;
end.
end.