Fórum Criar campos em runtime no ClientDataSet #275425

ClientDataSet1 := TCustomClientDataSet.Create(Self);
with ClientDataSet1 do
begin
  with FieldDefs.AddFieldDef do
  begin
    DataType := ftString;
    Name := ´Campo´;
  end;
  with FieldDefs.AddFieldDef do
  begin
    DataType := ftString;
    Name := ´Valor´;
  end;
  CreateDataSet;
end;