TFieldDef.named constructor

TFieldDef.named(
  1. TFieldDefs aOwner,
  2. String aName,
  3. TFieldType aDataType,
  4. int aSize,
  5. bool aRequired,
  6. int aFieldNo, [
  7. TSystemCodePage aCodePage = cpACP,
])

Implementation

TFieldDef.named(TFieldDefs aOwner, String aName, TFieldType aDataType,
    int aSize, bool aRequired, int aFieldNo,
    [TSystemCodePage aCodePage = cpACP])
    : super(aOwner) {
  name = aName;
  _dataType = aDataType;
  _size = aSize;
  _required = aRequired;
  _precision = -1;
  _fieldNo = aFieldNo;
  switch (_dataType) {
    case TFieldType.ftString:
    case TFieldType.ftFixedChar:
    case TFieldType.ftMemo:
      _codePage = aCodePage;
      break;
    case TFieldType.ftWideString:
    case TFieldType.ftFixedWideChar:
    case TFieldType.ftWideMemo:
      _codePage = cpUTF16;
      break;
    default:
      _codePage = 0;
  }
}