5 replies to this topic

[enecumene]

Pues eso, haciendo pruebas con el listView, me he percatado que las columnas de la misma no tiene la propiedad visible para esconderla, lo que he hecho es agregar ese valor en el puntero Data de los items, para mayor comprensión:

delphi

with ListView1.Items.Add do
      begin
        SubItems.Add( ADOTable1.Fields[0].AsString );
        SubItems.Add( ADOTable1.Fields[1].AsString );
        Data := pointer(ADOTable1.Fields[2].AsInteger); <--- Puntero Data
      end;

Hasta ahora voy bien, el problema es como obtener ese valor, estoy haciendo una pequeña consulta que depende de ese valor:

delphi

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text := 'DELETE FROM Canciones WHERE ID = :Cod';
  ADOQuery1.Parameters.ParamByName('Cod').Value := ListView1.Items[ListView1.ItemIndex].Data; //Aquí­ el problema
  ADOQuery1.ExecSQL;

Me da el siguiente error:

[Error] Unit1.pas(116): Incompatible types: 'Variant' and 'Pointer'

¿Cómo obtengo el valor de ese puntero en la consulta?.

Saludos.

[enecumene]

Yo mismo me respondo :$

 

delphi

ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text := 'DELETE FROM Canciones WHERE ID = :Cod';
  ADOQuery1.Parameters.ParamByName('Cod').Value := integer(ListView1.Items[ListView1.ItemIndex].Data); //Aquí­ el problema
  ADOQuery1.ExecSQL;

Saludos.

[felipe]

Que bueno que lo solucionaste, aún así­ no entiendo el objeto de dicha asignación si hablas de propiedad visible  ¿¿ ??, ¿podrí­as explicarme? 


Saludos!

[enecumene]

Pues fí­jate, cargo datos desde una tabla entre ellas el campo ID, y pensaba llenar ese campo en una columna pero que no estuviera visible, y ahí­ el problema, no tiene esa propiedad, por eso lo asigné en la propiedad Data que es un puntero genérico, no se ve pero está ahí­ .

Saludos

[Ayla]

He llegado a este hilo haciendo una búsqueda, igual es un poco tarde, pero si se puede colocar una columna "invisible" en un listview. Simplemente te creas la columna y en la propiedad width de esa columna le das el valor 0. No aparece visualmente pero si puedes acceder a los datos que almacenes allí sin problemas

[enecumene]

He llegado a este hilo haciendo una búsqueda, igual es un poco tarde, pero si se puede colocar una columna "invisible" en un listview. Simplemente te creas la columna y en la propiedad width de esa columna le das el valor 0. No aparece visualmente pero si puedes acceder a los datos que almacenes allí sin problemas

Ah vaya, muchas gracias Ayla, ya lo tengo presente