Error en Lista

[RJH71]

Saludos amigos del foro, tengo un inconveniente, tengo instalado Lazarus Free Pascal 2.0.4 y estoy trabajando con Mysql, el problema esta en la foto que mando no se como arreglar el problema me podran ayudar por favor, gracias de antemano.

[lainz]

Hola, estas seguro que "SubItems" esta inicializado?

...SubItems <> nil

También

Length(SubItems) > 0

SubItems.Count > 0

(alguna de las dos, dependiendo de que tipo sea)

[RJH71]

Gracias por responder lainz, como hago para inicializar el ListView soy nuevo en esto, aun sigo estudiando por videos tutoriales.
quedo de ti y gracias.

[RJH71]

me he dado cuenta de que cuando pierde el foco de una fila da error.

[lucamar]

Eso es porque haces lo mismo tanto si Selected es Nil como si no; lo que causa la excepción es tratar de acceder a SubItems cuando Selected = Nil. Lo que deberías hacer en vez de eso es algo así como:

Code: Pascal  [Select][+][-]

1. if Assigned(LVWkrWorker.Selected)
2. and Assigned(LVWkrWorker.Selected.SubItems)
3. and (LVWkrWorker.Selected.SubItems.Count >= 5) then
4.   begin
5.     { asigna los valores para SubItems }
6.   end;

Eso asignará valores para sub-items sólo si hay algo seleccionado y tiene al menos cinco SubItems.

Lo que hagas en caso contrario depende de lo que necesites; por ejemplo, si hay menos de cinco subitems podrías usar SubItems.Add para crear los que falten, etc.

[RJH71]

Gracias Lucamar quedo bien gracias.