Fórum Erro : Cannot assign a TFieldDefList to a TConnectParams #349247

    tabela.GetFieldNames(Campos);

procedure AbreTabela(var tabela:TpFiBDataset;NomeTabela:string);
var
  Campos                   : TStrings;
  NomeCampos,ValoresCampos : String;
  I                        : Integer;
begin
    tabela.Close;
    Campos.Create;
    tabela.SQLs.SelectSQL.Clear;
    tabela.SQLs.SelectSQL.add(´SELECT * FROM ´ +  NomeTabela);
    tabela.GetFieldNames(Campos);
    Tabela.SQLs.InsertSQL.Add(´INSERT INTO ´ + NomeTabela + ´(´);
    for I := 0 to Campos.Count - 1 do
    begin
          NomeCampos:=NomeCampos + Campos[I];
          if I<= Campos.Count then
            NomeCampos:=NomeCampos + ´,´;
          ValoresCampos:=ValoresCampos+´:´+NOmeCampos;
    end;
    Tabela.SQLs.InsertSQL.Add(NomeCampos + ´) VALUES (´ + ValoresCampos +´ )´);
    MensagemLOG:=´Nome da tabela: ´+NomeTabela;
    FPrincipal.GeraLOG(MensagemLOG);
    tabela.Open;
end;