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

* Implemented GetDisplayName for fielddef

Browse Source 
git-svn-id: trunk@14204 -
This commit is contained in:
michael 2009-11-17 20:24:21 +00:00
parent 59204b21d5
commit bf39a852b4
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/fcl-db/src/datadict/fpdatadict.pp
View File

@ -74,6 +74,7 @@ Type
protected protected
function GetSectionName: String; override; function GetSectionName: String; override;
procedure SetSectionName(const Value: String); override; procedure SetSectionName(const Value: String); override;
function GetDisplayName: string; override;
Public Public
Constructor Create(ACollection : TCollection); override; Constructor Create(ACollection : TCollection); override;
Function FieldDefs : TDDFieldDefs; Function FieldDefs : TDDFieldDefs;
@ -1013,6 +1014,14 @@ begin
FFieldName:=Value; FFieldName:=Value;
end; end;
function TDDFieldDef.GetDisplayName: string;
begin
If (FieldName<>'') then
Result:=FieldName
else
Result:=inherited GetDisplayName;
end;
constructor TDDFieldDef.Create(ACollection: TCollection); constructor TDDFieldDef.Create(ACollection: TCollection);
begin begin
Inherited; Inherited;