Fórum Como Adicionar campo em Cds em tempo de execução #263847

procedure TForm1.FormCreate(Sender: TObject);

begin
  with ClientDataSet1 do
  begin
    with FieldDefs.AddFieldDef do 
    begin
      DataType := ftInteger;
      Name := ´Field1´;
    end;
    with FieldDefs.AddFieldDef do
    begin
      DataType := ftString;
      Size := 10;
      Name := ´Field2´;
    end;
    with IndexDefs.AddIndexDef do
    begin
      Fields := ´Field1´;
      Name := ´IntIndex´;
    end;
    CreateDataSet;
  end;
end;