listview中出现EStringListError with message 'List index out of bounds(-1)'错

Question

var
  aitem : TListitem ;
  lpInt : ^Integer ;
  i : Integer
for i:=0 to gGGnum-1 do
begin
      aItem:=ListView1.Items.Add;
      GetMem(lpint,Sizeof(integer)) ;
      lpint^:=i;
      aItem.Data:=lpint;
end;

Answer 1

这样改没用。在执行aItem.Data:=lpint;的时候跳出错误。

Answer 2

aItem:TListItem;
  i:integer;
  lpint:Pinteger;(pinteger=^integer)ListView1.Items.Clear;

Answer 3

把aItem.Data:=lpint;那一段去掉就行了。别问我原因，我也不清楚。