Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Problemas con ListView (https://www.clubdelphi.com/foros/showthread.php?t=49564)

ZayDun 24-10-2007 19:25:17

Problemas con ListView
 
Hola, me ha surgido un problema con un ListView y es que hago una consulta a un listview atravez de un ClientSocket de esta manera.

Código Delphi [-]
  if comando = 'Cliente' then 
  If Pos ('Cliente'+BD.Items[BD.Items.Count-1].Caption,Datos) <>0 Then 
  Begin
  nick:=copy(Datos,6,length(Datos));
  memo1.Lines.Add('Cliente VALIDO ');
  end;


Lo malo del POS es que si la palabra que buscamos es "Cliente1" y por casualidad existiera en el ListView tambien la palabra Cliente3 me la daria por buena. Tambien tengo este otro codigo..

Código Delphi [-]
For I:=0 To BD.Items.Count -1 Do
If Pos (User.Text,BD.Items[i].Caption) >0 Then
BD.Items[i].Selected := true;
BD.SetFocus;

que busca la palabra pero no se como decirle que la busque solo en la COLUMNA Nº2.

COLUMNA1 | COLUMNA2 | COLUMNA3 |
Cliente1 00001 aaaaaa
Cliente2 00002 bbbbbb
Cliente3 00003 cccccc

yusnerqui 24-10-2007 21:27:53

Hola, creo que lo que buscas es la propiedad subitems del objeto TListItems. Esta propiedad se refiere presisamente al contenido del resto de las columnas del items seleccionado.
En tu ejemplo Listview1.items[2].Caption se refiere al valor que tiene en las segunda fila y la primera columna(Cliente2), Listview1.items[2].subItems[0] se refiere al valor que tiene en la segunda fila y la segunda columna(00002), Listview1.items[2].subItems[1] se refiere al valor que tiene en las segunda fila y la tercera columna(bbbbbb
) y así sucesivamente.

Con esto no te será difícil construir tu buscador. Espero haberte ayudado.

Saludos

ZayDun 24-10-2007 22:14:56

muchas gracias yusnerqui es justo lo que necesitaba, saludos y gracias de nuevo por molestarte en leer y comentar el codigo.


La franja horaria es GMT +2. Ahora son las 08:04:33.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi