Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-07-2005
Avatar de unreal4u
unreal4u unreal4u is offline
Miembro
 
Registrado: nov 2004
Ubicación: Temuco, Chile
Posts: 105
Poder: 20
unreal4u Va por buen camino
sacar sólo un subitem de un listview

wolas !! El otro día los molesté sobre cómo meter elementos a un listview. Ahora los molesto con otra: sacar esos mismos elementos, PERO sólo de a uno; hasta el momento lo único que he logrado construir es la siguiente sentencia:

Código Delphi [-]
for nI := 0 to ListView1.Items.Count do
  for nJ := 0 to ListView1.Columns.Count - 1 do       
   aArregloStrings[nJ] := ListView1.Items[nI-1].SubItems.Text;

que me saca todos los elementos, no de a uno. Lo que pasa es que necesito comprobar si son numéricos o stringes los datos que hay dentro del listview; pero ANTES (obviamente) de meterlo a la base de datos, para construir la sentencia SQL apropiada.

Había pensado en lo siguiente, pero lamentablemente, no funciona (Es la idea de lo que quiero hacer):

Código Delphi [-]
 ...
 for nJ := 0 to ListView1.Columns.Count -1 do       
   aArregloStrings[nJ] := ListView1.Items[nI-1].SubItems[nJ].Text;

Esperando su siempre muy oportuna respuesta, se despide: Camilo...
__________________
Código Delphi [-]
procedure Gracias; 
begin
 if Respuesta_a_Mensaje = TRUE then showmessage('Ojalá que te sirva')
 else showmessage('Gracias por responder... :-)');
end; // (c) unreal4u
Responder Con Cita
  #2  
Antiguo 01-07-2005
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 27
delphi.com.ar Va por buen camino
No entiendo si quieres quitar Items o SubItems....
Código Delphi [-]
var
 i: Integer;
begin
  ListView1.Items.BeginUpdate;
  try
    for i := ListView1.Items.Count-1 downto 0 do
      if NoMeGusta(ListView1.Items[i]) then
        ListView1.Items.Delete(i);
  finally
    ListView1.Items.EndUpdate;
  end;

Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #3  
Antiguo 01-07-2005
Avatar de unreal4u
unreal4u unreal4u is offline
Miembro
 
Registrado: nov 2004
Ubicación: Temuco, Chile
Posts: 105
Poder: 20
unreal4u Va por buen camino
nop, lo que quiero hacer es simplemente sacar subitems, no borrarlos. O sea, poder llevarlos a algún string (mi array de arriba es un array de strings) para ver si es numérico o no, para luego poder construir una sentencia SQL acorde con los datos que tengo. Por ejemplo, tengo la siguiente tabla:

Código Delphi [-]
  campo #1     campo #2       campo #3
  bla bla     23423423      bla bla 55
            555555     chaolin
 ble ble   11111        otro chao


La tabla no me qdó muy bonita jejeje, pero la idea es q puede haber un campo nulo, o alguno numérico, o algún string, etc. No se sabe cómo es el campo con e que estamos tratando. No sé si se entiende un poco más la idea ...
Responder Con Cita
  #4  
Antiguo 01-07-2005
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 27
delphi.com.ar Va por buen camino
Código Delphi [-]
ListView_DeleteColumn(ListView1.Handle, 1);
Si quieres mantener los datos, una opción puede ser olcultarla!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
  #5  
Antiguo 01-07-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por unreal4u
La tabla no me qdó muy bonita jejeje
¿Qué tal así?


Código:
+-----------+------------+-------------+
| campo #1  |  campo #2  |    campo #3 |
+-----------+------------+-------------+
| bla bla   | 23423423   |  bla bla 55 |
+-----------+------------+-------------+
|           | 555555     |  chaolin    |
+-----------+------------+-------------+
| ble ble   | 11111      |  otro chao  |
+-----------+------------+-------------+


// Saludos
Responder Con Cita
  #6  
Antiguo 01-07-2005
Avatar de unreal4u
unreal4u unreal4u is offline
Miembro
 
Registrado: nov 2004
Ubicación: Temuco, Chile
Posts: 105
Poder: 20
unreal4u Va por buen camino
jajjja .. en cuanto a la tabla .. voi a revisar de nuevo la guía de estilo, que no me acuerdo de todas las etiquetas jajajja .. estuve a punto de hacerla en html, pero la verdad es que me pareció un poco "atadoso" jkajajaja ...

En cuanto a lo otro, estuve pensando que en realidad no importa si los datos se borran o no, así que voi a probar ese otro método ... Gracias !!
__________________
Código Delphi [-]
procedure Gracias; 
begin
 if Respuesta_a_Mensaje = TRUE then showmessage('Ojalá que te sirva')
 else showmessage('Gracias por responder... :-)');
end; // (c) unreal4u
Responder Con Cita
  #7  
Antiguo 01-07-2005
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Poder: 27
delphi.com.ar Va por buen camino
Corrijo mi respuesta, mejor te recomiendo:
Código Delphi [-]
ListView1.Columns.Delete(Index);
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 01:44:30.


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
Copyright 1996-2007 Club Delphi