Ver Mensaje Individual
  #1  
Antiguo 08-10-2010
axak axak is offline
Registrado
 
Registrado: ene 2005
Posts: 5
Reputación: 0
axak Va por buen camino
Añadir field a un TTable tiempo ejecucion

Antes que nada decir que como vais a ver en mi pregunta estoy pegado en esto me dedico a leer libro y foros y me voy manejando pero en este caso no doy con la clave
Mi problema es el siguiente.
En mi aplicacion tengo varios TTables a las que le asignos los valores en tiempo de diseño su databasename su tablename añado los fields con el boton derecho del raton y add fields hasta hay todo facil y bien el problema es que tengo una TTable con el nombre de Tvacia1 para ir cargando en esa misma tabla en tiempo de ejecucion y segun el boton que se pulse tablas paradox que ya tengo creadas en el editor de paradox y hago lo siguiente.

TVacia1.DatabaseName:='DBGESCONS';
TVacia1.TableName:='oficios.db';
TVacia1.fielddefs.Add('oficio', ftString, 100); aqui esta el problema
TVacia1.Active:=true;
if not TVacia1.Locate('oficio',CBOficio.Text,[]) then
TVacia1oficio.value:=CBOficio.Text;
TVacia1.Active:=False;

Donde pongo aqui esta el problema lo que verdaderamente quiero hacer es cargar los el fiels 'oficio' para despues llamar a TVacia1oficio.value, la verdad que no se si la sentencia que pongo esta bien o es con un fiels.add aunque de todas formas con la sentencia que escribo me da el error [Error] AltaSub.pas(82): Undeclared identifier: 'ftString' cuando en todos lados que he mirado libros foros y ayuda delphi me dice que el type es asi no se si esque he entendido mal

espero haber explicado bien el problema pero para resumirlo lo que quiero es saber la sentencia para añadir fiels a mi TTable en tiempo de ejecucion y si es posible aclararme el error uq me da.

Un saludo y muchas gracias
Responder Con Cita