Listview Delete Item Exception Error

[B1tbull]

Greetings,

Environment is Windows 10 1903 , Lazarus 2.0.6.
Stepping up the learning curve for windows forms with a very basic listview example.
See attached project file. On Execution every button works, except delete selected which throws an exception in listitem.inc , function TListItem.GetChecked: Boolean; , line
LV := FOwner.FOwner; ( where LV turns out 0 ).
I did read a previous post on this and both ListView1.Items.Delete( i )
and ListView1.Items[ i ].Delete causes the exception.
Try the following : add 10 items, check 'Checkbox List View', check the first item in the list and click Del Selected -----> Exception Crash.

What am I missing ?

Thanks in advance

[winni]

Hi!

Do not cut the branch you are sitting on!

You have to do it from the top to the bottom because otherwise you try to delete an item that does not exist anymore - because you have just deleted it.

 

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

1. for i := ListView1.Items.Count - 1 downto 0 do
2.   begin
3.    ......
4.   end;

Winni

[B1tbull]

Hi!

Do not cut the branch you are sitting on!

You have to do it from the top to the bottom because otherwise you try to delete an item that does not exist anymore - because you have just deleted it.

 

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

1. for i := ListView1.Items.Count - 1 downto 0 do
2.   begin
3.    ......
4.   end;

Winni

  OMG , I feel so embarrassed.
Thanks a lot , you are truly a Hero

Francis

[Birger52]

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

1. while ListView1.Items.Count > 0 do ...

[winni]

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

1. while ListView1.Items.Count > 0 do ...

Look into the code: your building an infinite loop!

Winni