Fórum Criar Tabela Dinamica - ClientDataSet #340988

:?: Olá a todos.
Preciso desenvolver uma rotina que crie tabelas dinamicamente.
Que essa tabela seja criada com a estrutura: SqlDataSet, Provider, ClientDataSet, DataSource.
Desenvolvi uma função que cria uma tabela especifica (com campos definidos) mas não consegui fazer uma função que crie tabelas diversas com a mesma estrutura.
Alguma coisa assim Exemplo:
Crietabela( NomeTabela );
AddCampos( Campo1, Tipo1, Campo2, Tipo2, etc..)
ou
CriaTabela( NomeTabela, Campos,Tipo,etc..)
===
Abaixo a função que uso prara criar uma tabela de Titulos

function CriaTabelaTitulos( NomeTabela:String; NomeDataSource:String) : Boolean;
Var
Campo : Tfield;
Begin

Result := false;

try
Tabela2.Name := NomeTabela;
Tabela2.Close;
Tabela2.Fields.Clear;
Tabela2.FieldDefs.Clear;
with Tabela2.FieldDefs do
begin
Campo := TStringField.Create( Application );
Campo.FieldName := ´Ped_Cod´;
Campo.Name := ´Ped_Cod´;
Campo.DataSet := Tabela2;
Campo.DisplayLabel := ´Pedido´;
//
Campo := TStringField.Create( Application );
Campo.FieldName := ´Cliente´;
Campo.Name := ´Cliente´;
Campo.DataSet := Tabela2;
Campo.DisplayLabel := ´Cliente´;
//
Campo := TFloatField.Create( Application );
Campo.FieldName := ´VlrPedido´;
Campo.Name := ´VlrPedido´;
Campo.DataSet := Tabela2;
Campo.DisplayLabel := ´Vlr. Pedido´;
//
Campo := TStringField.Create( Application );
Campo.FieldName := ´Docto´;
Campo.Name := ´Docto´;
Campo.DataSet := Tabela2;
Campo.DisplayLabel := ´Docto´;
//
Campo := TDateField.Create( Application );
Campo.FieldName := ´Vencto´;
Campo.Name := ´Vencto´;
Campo.DataSet := Tabela2;
Campo.DisplayLabel := ´Vencto´;
end;
Tabela2.CreateDataSet;
Except
begin
MessageDlg(´Error na Criação da Tabela´, mtError, [mbOK],0);
exit;
end;
end;

Result := true;

end;

Abraços a todos.
Neto