15 respuestas en este tema

[makina]

Que tal foristas. les describo mi problematica.


En Mi proyecto construyo tablas,querys y campos de forma dinamica en tiempo real algo como

delphi

     if xpTipoDato ='INTEGER'    then
                  begin
 
//                    CampoMain :=TIntegerField(FindComponent(forma+Tabla+Campo));
                    nCampoI:=TIntegerField(FindComponent(forma+Tabla+Campo));
                    if ncampoI = nil then
                    begin
                      nCampoI      := TIntegerField.Create(Itabla);
                      nCampoI.Name :=forma+Tabla+Campo;
                    end;
                    with ncampoi do
                      begin
                          nCampoI.FieldName              :=Campo;
                          nCampoI.EditMask               :=xpMascara;
                          nCampoI.required               :=xpbRequerido;
                          nCampoI.ReadOnly               :=xpbReadOnly;
                          nCampoI.OnValidate             :=xFormaValidate;
                          nCampoI.DefaultExpression      :=xpValorDefault;
                          nCampoI.OnChange               :=xFormaChange;
                          nCampoI.ConstraintErrorMessage :=xpMensajeErrorValidacion;
                          nCampoI.CustomConstraint       :=xpValidacion;
                          nCampoI.MinValue               :=xpiValorMinimo;
                          nCampoI.MaxValue               :=xpiValorMaximo;
                          ncampoi.DataSet                :=Itabla;
                           if xpbActualizaObjetos = true then
                            begin
                              nCampoI.OnChange:=xFormaChangeCampoAV;
                              xpbActualizaOBjetos:=False;
                            end;
                      end;
                  end

y en otro procedimiento trato de cambiarle las propiedades ya asignadas  utilizando el procedimiento FindComponent algo como

delphi

                if xpTipoDato ='INTEGER'    then
                  begin
                    nCampoI:=TIntegerField(FindComponent(forma+Tabla+Campo));
                    if ncampoI = nil then
                       begin
                        ...
                       end;
                 end 

Sin embargo el problema es que  nCampoI:=TIntegerField(FindComponent(forma+Tabla+Campo)); me trae nil lo cual es falso ya que el campo si exisite, incluso si despues de que no lo encuentra lo trato de crear me manda un error diciendo que ya existe el componente.


alguna sugerencia??


es correcto usar el Findcomponent para encotrar  un campo de una tabla??


Gracias
Saludos.

[cadetill]

Buenas,

Has probado con FindField del TDataSet que contiene el campo??

Nos leemos
cadetill

[Delphius]

Hola,
Si estás creando campos de forma dinámica, lo lógico sería que éstos se asociaran a un DataSet en concreto como un xQuery o un xTable por ejemplo.


De ser cierto esto, entonces para localizar un campo en cuestión bastaría con un simple:

delphi

MiDataSet.FieldByName('NombreDelCampo');

Para obtener el Field correspondiente. O si se desea ubicarlos por su índice La propiedad vectorial Fields[].


Por otro lado no estaría mal que identaras apropiadamente tu código. He intentado editar tu mensaje para mejorar su escritura, que estaba lleno de etiquetas [ ] pero debido a algún formato que le pusiste mientras escribías hace que se siga viendo un [ font ] que no logro eliminar. Para utilizar etiquetas de Delphi sólo basta con escribir Delphi y /Delphi entre corchetes... y en lo posible evita poner una etiqueta dentro de las etiquetas diseñadas para código como las de Delphi, SQL. Éstas solitas se encargan de dar el formato.


Saludos,

[makina]

Pero el Findfield es para encontrar el campo del select o query. lo que requiero es accesar al campo del Tquery


es decir el campo se llama 'Nombre' pero el componente campo se llama VentaClienteNombre


al que requiero modificarle las  propiedades es al Componente no al campo de la base de datos..




Si no es correcto lo que escribo su correccion es bien apreciada.

[makina]

Que raro.. yo no coloque ningun formato de letra especial. y el codigo esta identado..
lo estoy visualizando con Crhome y se ve correcto.

hay algo que deba hacer para que no aparezca,, trate de editar el mensaje pero esas etiquetas no me aparecen, por lo que no las puedo quitar

[makina]

Por cierto.. lo que quiero es accesar a las propiedades del objeto TField no al valor del campo en la base de datos.

[cadetill]

FindField devuelve un TField, que es precisamente lo que quieres para cambiar propiedades.

No obstante, también puedes hacerlo como comenta Delphius dado que FieldByName también devuelve un TField.

Nos leemos
cadetill

[Delphius]

Ha... ya entiendo.


El problema con FindField y FieldByName es que esperan el nombre del campo, que está asociado y hace referencia a la propiedad FieldName del Field. Tu deseas buscar por el nombre del componente, y por tanto por su propiedad Name.


En ese caso lo que debes hacer es recorrer el vector fields[] buscando su coincidencia con el nombre. Como con Fields[] se tiene acceso a Field, luego simplemente basta con acceder a .Name. Por ejemplo:

delphi

while (NOT encontrado) AND (j <= DataSet.Fields.Count - 1) do
begin
  encontrado := DataSet.Fields[j].Name = NombreABuscar;
  if encontrado
     then posicion := j;
end; 

Saludos,

[Delphius]

Ahora que lo pienso... es demasiado, no... muy raro que no te encuentre el componente con un simple:

delphi

DataSet.FindComponent();

  Recuerda que FindComponent localiza a los componentes "hijos". Este funciona gracias a la propiedad Components[]. Supuestamente, con crear el Field y asignarle su "dueño" debería ser suficiente para encontrarlo.


¿No te arroja error alguno? ¿simplemente devuelve nil?


Saludos,

[Sergio]

Creo que diste en el clavo, delphius, los findcomponent que usa no indican desde que componente "padre" hacer esa busqueda, con lo que seguramente solo busque en los que estan directamente sobre el form (paneles, grids, etc.) pero no en sus sub-objetos.

Deberias ponerle delante a todos esos findcomponent el nombre de tu dataset, o bien hacerte una funcion que busque recursivamente, algo tipo recorrer los compenets si el find no encuentra nada, y repetir la busqueda partiendo de cada objeto, y asi recursivamente... no es dificl de programar, pero es innecesario aqui.

delphi

function FindComponentRecursivo(Padre, MyName);
var i: integer;
begin
  result:= Padre.FindComponent(MyName);
  if Assigned(result) then exit;
  for i:= 0 to Padre.Components.count-1 do begin
    result:= FindComponentRecursivo(Padre.Components[i], MyName);
    if Assigned(result) then exit;    
  end;
  ShowMessage('No encontre componente "'+MyName+'".');
end;

Ojo, esta escrita "de memoria", asi que mira el manual si algo no encaja 

Luego, en tu codigo, cambia los dos FindComponent(MyName) por FindComponentRecursivo(self, MyName) y deberia funcionarte (se supone que self sera el form, claro).

[makina]

Delphius / Sergio.

Esa es la solucion. ya la he probado y funciona perfecto
es algo asi

delphi

Procedure ChangeProperties(nombre:String)
var
zCampo:TField;
begin
  zCampo:=TField(Dataset.Findcomponent(nombre));
   if zCampo <>nil then
  with zCampo do
    begin
      ...
    end;
 
end;

Muchas Gracias a todos por su ayuda y sugerencias

Atte. Makina

[cadetill]

Perdonar, pero yo sigo sin ver por qué no te sirve FieldByName o FindField.

Para hacer la búsqueda por nombre del componente necesitas saber (según el ejemplo primero) forma+Tabla+Campo. Es decir, sabes la tabla y el nombre del campo. Qué problema tienes en usar el FieldByName o FindField? Estos métodos te devuelven un TField, que es lo que necesitas.

Nos leemos
cadetill

[Sergio]

Perdonar, pero yo sigo sin ver por qué no te sirve FieldByName o FindField.

Para hacer la búsqueda por nombre del componente necesitas saber (según el ejemplo primero) forma+Tabla+Campo. Es decir, sabes la tabla y el nombre del campo. Qué problema tienes en usar el FieldByName o FindField? Estos métodos te devuelven un TField, que es lo que necesitas.

Nos leemos
cadetill

No es lo mismo, si tienes dos campos "nombre" en tu consulta, tendras dos fields del estilo nombre y nombre1, y no sabes a priori este nuevo nombre que se le asignara, y no podras diferenciar entre un nombre y otro, de hecho no podras localizar el segundo de ellos porque no sabes por que field buscar... en consultas simples con solo 1 tabla, vale, pero en general no te vale.

[cadetill]

Vale, eso lo entiendo, pero entonces está mal planteada la forma de dar nombre al TField, fíjate que hace forma+Tabla+Campo, con lo que si se da lo que tu dices (que se puede dar ciertamente, pero facilmente salvable con alias que para eso están) le dará un error por duplicidad de nombre.

Nos leemos
cadetill

[makina]

Pues veras Cadetill.

Te cuento mi triste historia.. yo solia hacer eso precisamente para accesar a las propiedades de los campos y no tenia necesidad de construir el campo como componente

algo asi

delphi

Tabla.FieldbyName('Campo').EditMask:='999-AAA';

estas propiedades las modifico despues de haber creado la tabla y asignarle su SQL.text.

funciona la primera vez, pero una vez que cierras y abres nuevamente la tabla estas propiedades desaparecen

por eso mi necesidad de crear el Tfield como componente asi ya creado el componente puedo acceder a sus propiedades y modificarlas sin el problema de que desaparezcan despues de cerrar, abrir, o refrescar la ttabla.


mi conclusion es que cuando no declaras o construyes los campos el ttabla los crea de forma dinamica y te regresa un tfield virtual (por nombrarle de una manera)
si le asignas propiedades las respeta mientras no cierres la tabla, porque al momento de cerrarla destruye estos tfield y al abirla vuelve a crearlos pero con sus propiedades default, por lo que las propiedades antes asignadas desaparecen.


Espero ser claro..
Saludos.

[cadetill]

Buenas makina,

Has sido claro no, lo siguiente jejejeje

Yo ahora te pregunto, ¿por qué no declarar campos persistentes y te ahorras de tener que crearlos por código? De esta manera estableces las propiedades en diseño a tu gusto, te ahorras código y tienes acceso a ellos siempre que quieras.

Sí, quizás eso te implique tener más de 1 TDataSet, pero te facilita y clarifica el código.

Son sólo opciones ;-)

Nos leemos
cadetill