Fórum Insert em tabela temporária #328821

  Table2 := TTable.Create(Self);
  try
    Table2.DatabaseName := ´C:\TEMP´; { um alias BDE ou diretório}
    Table2.TableName := ´client00´; { extensão é opcional - será gerada automaticamente }
    Table2.TableType := ttASCII; { deve ser especificado quando se cria uma tabela}
    { definindo alguns campos}
    with Table2.FieldDefs do
    begin
      Add(´Codigo´, ftString, 5, true);  // o TRUE significa que é requerido - não pode ser nulo
      Add(´CodProd´, ftString, 5, true);
      Add(´Nome´, ftString, 20, false);
      Add(´Cidade´, ftString, 10, false);
      Add(´UF´, ftString, 2, false);
    end; { "with Table2.FieldDefs" }
    Table2.CreateTable;

    Table2.Open;
    Table2.Insert;
    try
      Table2.FieldByName(´Codigo´).Value := ´002´;
      Table2.FieldByName(´Nome´).Value := ´Micheus´;
      Table2.Post;
    except
      Table2.Cancel;
    end;
    Table2.Free;
  Except
    MessageDlg(´Error na Criação da Tabela´, mtError, [mbOK],0);
  end; { try...except }