ListView y sus campos !!!

[Ledian_Fdez]

Hola amigo de este foro.

Tengo un ListVehic (TListView) que contiene 4 columnas, estas son:

ListVehic.Columns[0].Caption := 'Chapa'
ListVehic.Columns[1].Caption := 'Fecha'
ListVehic.Columns[2].Caption := 'Tipo'
ListVehic.Columns[3].Caption := 'Km'

ListVehic.RowSelect := true

Quisiera que en el evento SelectItem guardar en variables según lo seleccionado para Chapa, Fecha, y Km.

La chapa se guarda sin problema.
En la Fecha se me guarda todo los SubItems. (solo quiero guardar el contenido de la fecha)
Y en el Tipo ni siquiera se como podría guardarlo.

Aquí esta el código.

Código Delphi [-]
procedure TRegistroForm.ListVehicSelectItem(Sender: TObject;
  Item: TListItem; Selected: Boolean);
begin
 if Selected then
   begin
//Guardo la chapa
     TextCH := Item.Caption;
// Quiero guardar el contenido seleccionado de la columna Fecha
     TextFecha := Item.SubItems.Text;
// Quiero guardar el contenido seleccionado de la columna Tipo
     //TextTipo := ?
   end;
end;

En espera de su ayuda,
un Delphiano.

Salu2,
Gracias.

[[ElKurgan]]

Empezado por Ledian_Fdez

La chapa se guarda sin problema.
En la Fecha se me guarda todo los SubItems. (solo quiero guardar el contenido de la fecha)
Y en el Tipo ni siquiera se como podría guardarlo.

Aquí esta el código.
Código Delphi [-]procedure TRegistroForm.ListVehicSelectItem(Sender: TObject;
Item: TListItem; Selected: Boolean);
begin
if Selected then
begin
//Guardo la chapa
TextCH := Item.Caption;
// Quiero guardar el contenido seleccionado de la columna Fecha
TextFecha := Item.SubItems.Text;
// Quiero guardar el contenido seleccionado de la columna Tipo
//TextTipo := ?
end;
end;

Deberías hacer esto:

Código Delphi [-]
procedure TRegistroForm.ListVehicSelectItem(Sender: TObject;
  Item: TListItem; Selected: Boolean);
begin
 if Selected then
 begin
 //Guardo la chapa
 TextCH := Item.Caption;
 // Guarda el contenido seleccionado de la columna Fecha
 TextFecha := Item.SubItems[1];
 // Guarda el contenido seleccionado de la columna Tipo
 //TextTipo := Item.SubItems[2];
end;
end;

Un saludo

[Ledian_Fdez]

ElKurgan al poner:

Código Delphi [-]
TextFecha := Item.SubItems[1];

Código Delphi [-]
procedure TRegistroForm.ListVehicSelectItem(Sender: TObject;
  Item: TListItem; Selected: Boolean);
begin
 if Selected then
 begin
 //Guardo la chapa
 TextCH := Item.Caption;
 // Guarda el contenido seleccionado de la columna Fecha
 TextFecha := Item.SubItems[1];
 // Guarda el contenido seleccionado de la columna Tipo
 //TextTipo := Item.SubItems[2];
end;
end;

Da el siguiente error:

[Error] Registro.pas(532): Record, object or class type required

Luego y si lo pongo como explicaba anteriormente:

Código Delphi [-]
TextFecha := Item.SubItems.Text;

En la variable TextFecha se me guarda de los el contenido de los SubItems de la siguiente manera.

Fecha□□tipo□□Km□□

Estoy al volverme loco, no se que hacer...

Salu2 y Gracias de antemano.

[[ElKurgan]]

¿Y de que tipo está declarado "TextFecha"? Porque a mi me funciona bien

Saludos

[Ledian_Fdez]

Código Delphi [-]
public
    TextCH : String;

[[ElKurgan]]

¿Y como tienes el estilo del listview?... Con estilo "vsReport" la propiedad caption te devuelve la cadena de la primera columna del item seleccionado. Es verdad que no puse bien los subindices, ya que el indice "0" te devuelve la cadena de la segunda columna.

Por tanto no se a que viene ese error

Por cierto, la propiedad text lo que hace es intentar convertir a cadena todo el objeto completo. Si tienes un stringlist y le dices que muestre su "Text" lo que hace es sacarte todo el contenido separado por retornos de carro

Saludos

[Ledian_Fdez]

ViewStyle = vsReport

Por favor como quedaría entonces? A mi no me funciona!!!

[[ElKurgan]]

Aqui te adjunto un pequeño ejemplo de uso que espero te sirva de ayuda

Un saludo