如何从一个常量的记录数组中引用一个类?

前端之家收集整理的这篇文章主要介绍了如何从一个常量的记录数组中引用一个类?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我有一个类,TiffData包含加载和显示数据的抽象方法,以及一些定义这些方法的TTiffByte,TTiffAscii,TTiffShort等祖先类.

我还有一个常量数组或记录,可以让我根据IFD中记录的数据类型查找有关类型的信息.

我无法弄清楚,如何为每个数组元素存储关联的类.

type
    TtiffType = record
      name  : string;
      bytes : word;
      data  : class;   {  ?  }
      desc  : string;
    end;

const
TiffTypes : array[ 1 .. 18 ] of TTiffType =  (

{01} ( name: 'byte';  bytes : 1; data: TTiffByte;     { ? }
       desc: '8-bit unsigned number.'   ),{02} ( name: 'ascii';  bytes : 1; data: TTiffAscii;   { ? }
       desc: '8 bit byte that contains a 7 bit ASCII code; the last byte must be NULL (binary zero)'   ),{03} ( name: 'short';  bytes : 2; data: TTiffShort;   { ? }
       desc: '16-bit (2-byte) unsigned integer.'   ),...

我想要做的是在数组中保持对类的引用:

value := TiffTypes[ fldType ].Data.Create;

value.loadFromOffset( offset );
Edit1.Text := value.getShortString;

或者在数组中保存一个构造函数

value := TiffTypes[ fldType ].data;

value.loadFromFile( f,offset,count );
InternalRepresentation := TTiffAscii( value.storage );

解决方法

由于您的类具有公共基类TiffData,因此您可以在记录中使用TiffData类,例如:
type
  TtiffType = record
    name  : string;
    bytes : word;
    data  : class of TiffData; // <-- here
    desc  : string;
  end;

然后使用Data.Create将按预期工作,只要TiffData的构造函数声明为virtual,并且每个派生类都会覆盖它.

原文链接:https://www.f2er.com/delphi/101251.html

猜你在找的Delphi相关文章