没有引号的FireDac GetFieldNames

时间:2015-12-15 14:52:13

标签: delphi firebird firedac

我正在通过GetFieldNames命令行通过Firedac Connection恢复Firebird表的字段,但是一些列表字段会返回引号。

我已尝试将参数插入MetaDefCatalog = MySql指令而未解决。

List:=TStringList.Create;
FDConnection.GetFieldNames('','','Table','',List);
if List.IndexOf('Field') > 0 then
// commands to create field in the table

问题在于,如果要求创建已存在的字段并生成错误,当Firedac(DBExpress没有这样做)该字段填充该子句时。

GetFieldNames的结果:

enter image description here

1 个答案:

答案 0 :(得分:2)

要删除引号,您可以使用StringReplace函数。

FDConnection.GetFieldNames('','','Table','',List);
//remove the quotation marks
List.Text := StringReplace(List.Text, '"', '', [rfReplaceAll]);
if List.IndexOf('Field') > 0 then
 // commands to create field in the table