delphi - TkbmMemTable - 如何在运行时添加字段？

Question

我有一个简单的 csv 文件，打开方式如下：

  FkbmCSVStreamFormat.sfDef := FkbmCSVStreamFormat.sfDef - [sfLoadDef];
  FkbmMemTable.LoadFromFileViaFormat(AFilename, FkbmCSVStreamFormat);

如何在运行时向 MemTable 添加新字段？就像是：

    DataSet.FieldDefs.Add('MyNewField', ftString, 20, False);

欢迎任何想法。

问候克劳斯

标签： delphi

Answer 1

与任何其他数据集完全一样：

例如：对于一个字符串字段（名称：sFieldName，大小：iSize，您的 kbmMemTable 是 myDataset）：

myDataset.FieldDefs.Add(sFieldName, ftString, iSize); myDataset.fielddefs[mydataset.fielddefs.count-1].CreateField(myDataset);