2Pascal-新时代的Pascal

标题: ListView报错，help [打印本页]

作者: zdh 时间: 2015-6-8 14:44
标题: ListView报错，help
win7+xe8
ListView删除第一行就会报错在windows提示如下
[attach]850[/attach]

在android提示如下
[attach]851[/attach]

源码见附件

[attach]852[/attach]

作者: zdh 时间: 2015-6-8 17:11
经测试，如果用控件外面的按钮删除，再载入，就没问题

作者: 红鱼儿 时间: 2015-6-10 11:53
本帖最后由红鱼儿于 2015-6-10 11:55 编辑

unit FMX.ListView.Types;

procedure TListItem.MouseUp(const Button: TMouseButton; const Shift: TShiftState; const MousePos: TPointF);
var
  I: Integer;
begin
  for I := 0 to FItemList.Count - 1 do
if (FItemList[I] <> nil) and FItemList[I].Visible then//当I=6时，出的错误.
   FItemList[I].MouseUp(Button, Shift, MousePos);
end;

作者: zdh 时间: 2015-6-10 15:52
两行数据
FItemList.Count只有2，不可能出现i=6的情况吧？

作者: 红鱼儿 时间: 2015-6-11 14:08

zdh 发表于 2015-6-10 15:52
两行数据
FItemList.Count只有2，不可能出现i=6的情况吧？

我跟踪就是这样的情况。
与每个Item中加的内容有关系，应是加的内容的行数。

欢迎光临 2Pascal-新时代的Pascal (http://2pascal.com/)