Hola! necesito su ayuda lo que quiero hacer es mostrar un mensaje por cada item que haya en el Listview.
tengo este codigo
Código Delphi
[-]
procedure TFrmPrincipal.Button1Click(Sender: TObject);
Var
X: Integer;
Cap: String;
begin
For X := 1 To LvArchivos.Items.Count Do
Begin
Cap := LvArchivos.Items[X].SubItems.Strings[1];
ShowMessage(Cap);
end;
end;
y me tira este error:
"project copiar raised exception class 'external: SIGSEGV'.
me marca esta linea dentro de listitem.inc:
Código Delphi
[-]if FSubItems = nil
el compilador que uso es Free Pascal y uso Linux
les agradeceria que me pudieran ayudar