The output of this call is:
CustNo - This is the first column [TMyFieldDef]
The second customization is based on the definition of a custom string field type derived from the AnsiString type: type
TMyStringField = class (TStringField) protected function GetAsString: string; override; end;
function TMyStringField.GetAsString: string; begi n
Result := inherited GetAsString + ' is not Unicode'; end;
This class makes a rather odd customization, adding a fixed string to the output of each AnsiString field. The simplest way to connect the custom field class to all fields of a given type (whose internal format must be compatible) is to use the DefaultFieldClasses global array:
Was this article helpful?
What you need to know about… Project Management Made Easy! Project management consists of more than just a large building project and can encompass small projects as well. No matter what the size of your project, you need to have some sort of project management. How you manage your project has everything to do with its outcome.