Puedo Eliminar una columna de un dataset?

[Wbarrantes]

soloexiste un pequeno inconveniente con esto...

los campos son variables en cada ejecucion... osea se ejecuta un escript en tiempo de ejecucion... y los valores que me devuelve tambien son variables...

por ejemplo en lugar de: nombre, apellido1,apellido2
podria contener : Casa,ubicacion,Terreno

y el campo a eliminar tambien varia, de acuerdo a un txt de configuracion que recibo...

por lo que debo eliminar en tiempo de ejecucion...

[Wbarrantes]

No se tal ves se me ocurre, si no es posible eliminar una columna en tiempo de ejecucion...

se podria copiar en un dataset temporal, solo las columnas que deseo, y luego volver a asignar el resultado al dataset original?

no se si es posible...

agradescode antemano la ayuda que me brinden...

[cloayza]

Podrias cambiar la propiedad de los campos que no deseas a Visible:=False, y modificar tu rutina de exportacion a XML, verificando que si el campo es Visible lo exporte.

Si un campo tiene su propiedad Visible a False, en una grilla no sera mostrado.

Código Delphi [-]
Tabla.FieldByName('NUMERO').Visible:=False;
Tabla.Fields[0].Visible:=False;

IF Tabla.FieldByName('NUMERO').Visible THEN
BEGIN
        Exportar a XML...
ENDIF

Es solo una idea.

[Wbarrantes]

elproblema es que para guaradr en XML, utilizo simplemente

Código Delphi [-]
ClientDataSet1.SaveToFile('c:\ejemplo.xml')

si conocieses alguna otra forma de realizarlo... te agradesco mucho

[cloayza]

Entonces lo que podrias hacer seria eliminar los campos de la definicion del ClientDataset.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
    index:=ClientDataSet1.FieldDefs.IndexOf('NOMBRE_CAMPO_A_ELIMINAR');
    if index>-1 then
       //Lo elimina de la lista de campos
       ClientDataSet1.FieldDefs.Delete(index);
end;

Saludos.

[Wbarrantes]

una pregunta... como declaro la vatriable index ?
de que tipo? debe ser global?

gracias... por tu prontarespuesta, y tu ayuda...

[cloayza]

No me fije que no la habia definido. Ahora si.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var 
   Index:Integer;
begin
    index:=ClientDataSet1.FieldDefs.IndexOf('NOMBRE_CAMPO_A_ELIMINAR');
    if index>-1 then
       //Lo elimina de la lista de campos
       ClientDataSet1.FieldDefs.Delete(index);
end;

Saludos