diff options
| -rw-r--r-- | src/gui/fpg_listview.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/gui/fpg_listview.pas b/src/gui/fpg_listview.pas index ecc1a409..dc9378b1 100644 --- a/src/gui/fpg_listview.pas +++ b/src/gui/fpg_listview.pas @@ -2067,7 +2067,7 @@ procedure TfpgListViewSubItems.Clear; var i: LongInt; begin - for i := FList.Count downto 0 do + for i := FList.Count-1 downto 0 do Delete(i); end; |