delphi - 避免在 TDataSet 中添加重复的列名

Question

我正在使用以下代码向 TDataSet 动态添加字段:

while not ibSQL.Eof do
   fieldname := Trim(ibSql.FieldByName('columnnameofchange').AsString);
   TDataSet.FieldDefs.Add(fieldname , ftString, 255);
end

问题是我可能会得到重复的名字，那么筛选重复项而不是添加已添加的重复项的最简单方法是什么。

我希望不要为每个添加的列遍历 TDataSet.FieldDefList，因为这对于每个单独的列添加来说都是乏味的。并且可以有很多补充。

如果可能，请提供其他解决方案。如果不是，那么我将无法使用 FieldDefList 迭代。

我还要补充一点，在 SQL 查询中筛选出重复项是一个选项，但不是一个理想的选项。

谢谢

Answer 1

TFieldDefs 有一个方法 IndexOf，当具有给定名称的字段不存在时返回 -1。