PDA

Ver la Versión Completa : TClientDataSet y objetos de campos añadidos en tiempo de ejecución


Berto2003
03-03-2004, 15:32:52
Hola amig@s.

Me ha surgido una pequeña cuestión al utilizar un TClientDataSet. Me gustaría saber si es posible crear en tiempo de ejecución los objetos de una tabla. Me explico. Tengo un TSQLQuery de dbExpress conectada con un TDataSetProvider y éste a su vez con el TClientDataSet. Dependiendo del tipo de datos que devuelve los datos de la query, necesitaría agregar en tiempo de ejecución dichos objetos de esos campos (los que se agregan al hacer doble click sobre el TClientDataSet en tiempo de diseño, por ej., tbAuxnombre_campo: TStringField) ¿Es posible hacer esto? El clientdataset lo tengo unas veces definido como os he comentado y otras en tiempo de ejecución mediante FieldDefs.Add(..), etc.

Gracias y un saludo,
Alberto. :)

SLAKE
03-03-2004, 17:14:14
var
sf : TSringField;
begin
................
sf := TStringField.Create(self);
with sf do
begin
FieldName := 'nombre';
dataset := ClientDataset1; // El cliente que quieras
name := cds.name + 'nombre';
FieldKind := fkData;
size := 30; //el quieras
end;
.........
end;

Berto2003
04-03-2004, 09:26:27
Gracias Slake!!

Me ha funcionado!!! Gracias por tu ayuda y hasta luego.

Un saludo