如何在Delphi中扩展tFieldType自定义字段类型？

你尝试用+合并两个枚举类型的写法在Delphi里是不支持的，枚举类型没有这种合并语法。要扩展TFieldType，可以参考以下几种可行方案：

方案1：指定枚举值扩展（最贴合需求） #

Delphi允许给枚举类型的成员指定底层整数值，我们可以让自定义枚举的起始值紧跟在TFieldType的最大值之后，避免值冲突：

type
  // 自定义枚举，起始值从TFieldType的最大值+1开始
  pSetExtendedFieldTypes = (ftAlpha = High(TFieldType) + 1, ftAlphaNumeric, ftNumeric);

因为Delphi无法直接声明一个包含原有枚举和自定义枚举的新枚举类型，所以实际使用时可以用Integer作为通用类型来存储两种枚举的值，或者在判断时进行类型转换：

var
  FieldDataType: Integer;
begin
  // 赋值原有字段类型
  FieldDataType := Integer(ftString);
  // 赋值自定义字段类型
  FieldDataType := Integer(ftAlpha);

  // 判断并处理不同类型
  case FieldDataType of
    // 处理原生TFieldType范围的值
    Integer(ftUnknown)..Integer(High(TFieldType)):
      ShowMessage('原生字段类型: ' + TFieldType(FieldDataType).ToString);
    // 处理自定义类型范围的值
    Integer(ftAlpha)..Integer(High(pSetExtendedFieldTypes)):
      case pSetExtendedFieldTypes(FieldDataType) of
        ftAlpha: ShowMessage('自定义类型: 纯字母');
        ftAlphaNumeric: ShowMessage('自定义类型: 字母数字混合');
        ftNumeric: ShowMessage('自定义类型: 纯数字');
      end;
  end;
end;

方案2：使用记录类型组合原生与自定义类型 #

如果需要同时保留原生字段类型和自定义类型的标记，可以用记录来封装：

type
  pSetExtendedFieldTypes = (ftAlpha, ftAlphaNumeric, ftNumeric);
  pSetDataTypes = record
    NativeType: TFieldType;
    ExtendedFlags: set of pSetExtendedFieldTypes;
  end;

这种方式适合需要给原生字段类型附加自定义特性的场景，比如标记某个ftString类型的字段是纯字母格式。

方案3：扩展字段处理逻辑 #

如果要让自定义类型融入原有字段处理流程，需要在相关函数中增加对自定义类型的判断分支。比如扩展字段描述函数：

function GetFieldTypeDescription(ADataType: Integer): string;
begin
  if ADataType <= Integer(High(TFieldType)) then
    Result := TFieldType(ADataType).ToString
  else
    case pSetExtendedFieldTypes(ADataType) of
      ftAlpha: Result := '纯字母字段';
      ftAlphaNumeric: Result := '字母数字混合字段';
      ftNumeric: Result := '纯数字字段';
    end;
end;

内容的提问来源于stack exchange，提问作者user2383818