4 replies to this topic

[edorantes]

Oigan por que al agregar datos a mi listview deja la primera coluna vacia y empiza a agregar desde la segunda
es decir
tengo un lisview con tres columnas y quiero agregarle datos asi

delphi

with ListView.Items.Add do
  begin
    SubItems.Add( '1' );
    SubItems.Add( 'Lalo' );
    SubItems.Add( 'Programador' );
  
  end;

pero en el list view aparecen asi

Clave| nombre| descripcion|
              1              Lalo

Se salta la primera columna y ya tengo la propiedad vsReport pero no se por que se salta
Espero sus respuestas

[escafandra]

Prueba de esta forma:

delphi

with ListView.Items.Add do
begin
   Caption:= '1';
   SubItems.Add( 'Lalo' );
   SubItems.Add( 'Programador' );
end;

Saludos.

[edorantes]

Asi si funciono pero cuando recorro la columna clave solo me muestra el ultimo es decir si tengo asi

Clave| nombre| descripcion|
  1        Lalo      Programa
  2      Miguel    Analista

y lo recorro asi para meterlo en una base de datos solo manda el ultimo osea el 2

delphi

for i:=0 to LisView.Items.Count - 1 do
    ilist := ListView.Items.Item[i];
 begin
 
     ShowMessage(ilist.Caption);//Aqui solo muestra el ultimo ingresado
 
 end;

Tambien queria hacerlo con un listbox pero no se como obtener los datos de determinada columna he tratado asi pero me manda una sola cadena  asi '1;lalo;programador' y lo que quiero es separarlas para meterlas a una bd

delphi

for r:=0 to ListBox1.Items.Count - 1 do
 
begin
 
temp := ListBox1.Items.Strings[r];
 
 
 
end;

Grasias por tu repuesta

[escafandra]

Los muestra bien:

delphi

var
 i: integer;
 ilist: TListItem;
begin
     for i:=0 to ListView.Items.Count - 1 do
     begin
        ilist := ListView.Items.Item[i];
        ShowMessage(ilist.Caption);
     end;
end;

Saludos.

[edorantes]

Gracias, esta resuelto