paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 16:09:31 +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;
public
constructor Create(ACollection: TSqlObjectIdentifierList; Const AObjectName: String; Const ASchemaName: String = '');
function FullName: String;
property SchemaName: String read FSchemaName write FSchemaName;
property ObjectName: String read FObjectName write FObjectName;
end;
@ -49,14 +50,22 @@ implementation
{ TSqlObjectIdenfier }
constructor TSqlObjectIdenfier.Create(ACollection: TSqlObjectIdentifierList;
const AObjectName: String; Const ASchemaName: String = '');
constructor TSqlObjectIdenfier.Create(ACollection: TSqlObjectIdentifierList; const AObjectName: String; const ASchemaName: String = '');
begin
inherited Create(ACollection);
FSchemaName:=ASchemaName;
FObjectName:=AObjectName;
end;
function TSqlObjectIdenfier.FullName: String;
begin
Result:=FObjectName;
if FSchemaName<>'' then
Result:=FSchemaName+'.'+FObjectName;
end;
{ TSqlObjectIdentifierList }
function TSqlObjectIdentifierList.GetIdentifier(Index: integer): TSqlObjectIdenfier;
@ -82,5 +91,4 @@ begin
Result.ObjectName:=AObjectName;
end;
end.
end.