Creación de campos en runtime TClientdataset

[[fjcg02]]

Hola a todos,
estoy enfrascado en un problemilla y me gustaría saber qué opinais.

Tengo un TClientDataset al que le creo en runtime los campos que necesito. Hasta ahí bien, los creo, doy las altas de registros necesarios, preparo la información, y me funciona perfectamente. Como el Tclientdataset va a su bola, es decir, no extrae los datos de ninguna bbdd, ejecuto CDS.CreateDataset una vez creados los campos.

Sin embargo, cuando lanzo el proceso por segunda vez, cambiando los campos, me da un error. Concretamente cuand ejecuto CDS.CreateDataset. Previamente, he borrado los campos que había creado anteriormente.

También he intentado ejecutar el CreateDataset sólo la primera vez, pero también me da el error.

Sabría alguien decirme qué demonios se me está escapando ?

Gracias y un saludo

Así borro los campos:

Código Delphi [-]
for n:= CDSResultado.Fields.Count-1 downto 0 do
  CdSResultado.Fields[0].Free;

Así creo los campos:

Código Delphi [-]
function crearColumna(CDS:TClientDataset; Campo: string ):boolean;
var F: TStringField; NombreCampo:string;
begin
  F:= TStringField.Create(CDS);
  F.FieldName:= Campo;
  NombreCampo:= AnsiReplaceStr( Campo,' ', '_');
  NombreCampo:= trim(AnsiReplaceStr( NombreCampo,'-', '_'));
  F.Name:= CDS.Name+ NombreCampo;
  F.DataSet:= CDS;
  F.Size := 100;
  F.DisplayLabel:= Campo;
  F.DisplayWidth:= 10;

end;

[Casimiro Noteví]

Olvido de novato: ¿qué error?

[[fjcg02]]

Error:

CDS Field 'XX' not found


Obviamente, no debe existir, lo he borrado para volver a crear los campos.


Saludos

[TOPX]

Hola,

Eso tiene que ver con la propiedad FieldDefs del TClientDataSet.

Más info en ~

• reutilizar ClientDataSet - ClubDelphi
• Defining a ClientDataSet's Structure Using FieldDefs - EDN

¿Y si utiliza un nuevo ClientDataSet para la nueva estructura? En fin, son gustos.
-

[Neftali [Germán.Estévez]]

¿No será algún otro componente que tienes "enganchado" a ese ClientDataset, quien está buscando el campo?

[Caminante]

Hola

creo que deberia ser

Código Delphi [-]
Clientdataset1.FieldDefs.clear;