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

- Implemented TField.DisplayName

Browse Source
This commit is contained in:
joost 2005-02-07 11:22:23 +00:00
parent b993a9c094
commit f7e62bc856
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fcl/db/fields.inc
View File

@ -38,6 +38,7 @@ begin
Writeln('TFieldDef.Create : ',Aname,'(',AFieldNo,')'); Writeln('TFieldDef.Create : ',Aname,'(',AFieldNo,')');
{$endif} {$endif}
FName:=Aname; FName:=Aname;
FDisplayName := '';
FDatatype:=ADatatype; FDatatype:=ADatatype;
FSize:=ASize; FSize:=ASize;
FRequired:=ARequired; FRequired:=ARequired;
@ -77,7 +78,8 @@ begin
Try Try
Result.Size:=FSize; Result.Size:=FSize;
Result.Required:=FRequired; Result.Required:=FRequired;
Result.FieldName:=FName; Result.FFieldName:=FName;
Result.FDisplayLabel:=FDisplayName;
Result.FFieldNo:=Self.FieldNo; Result.FFieldNo:=Self.FieldNo;
Result.SetFieldType(DataType); Result.SetFieldType(DataType);
{$ifdef dsdebug} {$ifdef dsdebug}
@ -2202,7 +2204,10 @@ end;
{ {
$Log$ $Log$
Revision 1.21 2005-01-12 10:29:54 michael Revision 1.22 2005-02-07 11:22:23 joost
- Implemented TField.DisplayName
Revision 1.21 2005/01/12 10:29:54 michael
* Patch from Joost Van der Sluis: * Patch from Joost Van der Sluis:
- removed some duplicate definitions - removed some duplicate definitions
- restructured SetDataset - restructured SetDataset