delphi多线程操作同一个listview，怎么办？-CSDN论坛

⋅无边框窗体弹出模态子窗体不可见 ⋅DbContext CodeFirst模式如何获得实体的主键名称列表 ⋅fineui window控件如何post方式打开链接 更多帖子 关注私信空间博客 csdn小虫 本版专家分：381 结帖率 95.24%: 我有两个线程同时处理界面中的一个ListView
线程1:
我自己建立的线程类对象 mythreadObj：
  Execute()方法是一个死循环，循环内部有个这样的语句处理ListView

    aListItem:=form1.ListView1.Items[i];
    Synchronize(SetlistItemicon); //方法setlistitemicon 是设置所选的项的图标
    。。。。。。。
   。。。。。
end;

线程2中，我用一个timer定时器：
  每隔一段时间，就刷新整个Listview中的列表。
  就是每隔一段时间，就从一个数组中取出数据，根据数据生成listview中的item

  listview1.clear;
  根据数组内容，添加Item

我运行程序的时候，有时会出现异常，
应该是两个线程间  同时操作Listview，所以出现异常

怎么处理呀。希望大虾给个思路和帮我上面的加段代码
没做过多线程的，帮帮忙，急急  急

0 2009-10-29 09:51:50

回复数 9 只看楼主引用举报楼主

⋅状态好差！！！！！！！！！！！！！！！！！！！！！！！！1111 ⋅关于OCX 中，界面同步的问题 ⋅求个好看的BUTTON 更多帖子 关注私信空间博客 风之谷 本版专家分：7118: 为什么要在线程中操作VCL啊。

0 2009-10-29 10:06:52

只看TA 引用举报 #1 得分 1

⋅Delphi 10 开发Android程序时，无法读取发布的Txt文件 ⋅恭喜月亮MM升级 ⋅预祝大家春节快乐！先给大家拜个早年 更多帖子 关注私信空间博客 xzhifei 本版专家分：20760: //线程单元内
uses SyncObjs;

//定义一个全局变量
var
  CS: TCriticalSection;

在操作LV之前调用：
CS.Enter;
操作完成后：
CS.Leave;

initialization
  CS := TCriticalSection.Create;
finalization
  CS.Free;

线程中操作VCL很正常，比如多线程下载列表就有可能会用到

1 2009-10-29 10:22:16

只看TA 引用举报 #2    得分 5

⋅C# chart如何设置坐标轴 ⋅在WebService中定义一个私有方法，有办法使用Session吗？ ⋅连续性问题，被难倒了！寻高手 更多帖子 关注私信空间博客 wooden954 本版专家分：9599: 使用同步方法调用函数，这个函数调用会在主线程中调用，不会产生楼主所说的“应该是两个线程间同时操作Listview，所以出现异常”，之所以产生异常，是因为楼主的SetlistItemicon过程中的执行过程中产生的，也就是说SetlistItemicon过程中有Bug。
楼主可以把SetlistItemicon过程贴出来看看，还有出现异常的提示信息。

0 2009-10-29 10:41:18

只看TA 引用举报 #3 得分 10

⋅200分求一职场生存法则问题 ⋅UITableView，你了解多少？ ⋅[分享]用delphi实现的由一颗五角星爆炸成多个五角星的特效，代码仅6行 更多帖子 关注私信空间博客 无条件为你 本版专家分：21540 蓝花 2008年12月 Delphi大版内专家分月排行榜第三: 线程同步里面讲的很清楚，方法很多！老生常谈的问题。

0 2009-10-29 11:24:49

只看TA 引用举报 #4 得分 1

⋅无边框窗体弹出模态子窗体不可见 ⋅DbContext CodeFirst模式如何获得实体的主键名称列表 ⋅fineui window控件如何post方式打开链接 更多帖子 关注私信空间博客 csdn小虫 本版专家分：381: procedure TMyThread.Setitemicon;
begin
  case pListState of
    0:begin
       Plistitem.ImageIndex:=0;
      end;
    1:begin
        Plistitem.ImageIndex:=1
      end;
    2:begin
        Plistitem.ImageIndex:=2;
      end;
  end;

异常提示就是  violation access 地址 xxxxx 之类的

0 2009-10-29 12:05:49

只看TA 引用举报 #5    得分 0

⋅无边框窗体弹出模态子窗体不可见 ⋅DbContext CodeFirst模式如何获得实体的主键名称列表 ⋅fineui window控件如何post方式打开链接 更多帖子 关注私信空间博客 csdn小虫 本版专家分：381: 我怀疑那个execute()方法中的死循环间的时间间隔太短了，我加个延时的函数，好象就没出现问题。
不知道是什么原因呀。
我在execute()方法的死循环内部加个延时的函数
procedure execute()
beign
  while not Terminated do
  begin
    ......
     .....
    aListItem:=form1.ListView1.Items[i];
    Synchronize(SetlistItemicon); //方法setlistitemicon 是设置所选的项的图标
     delay(500);//自己写的延时函数
  end;
end;

到底是什么问题？？？
是不是要用用临界区来做，如果是的话，该怎么做？？？？
请高手指点呀

很急急急

0 2009-10-29 12:55:52

只看TA 引用举报 #6    得分 0

⋅为什么一些软件是控制台程序 ⋅Delphi XE register 调用约定的参数执行顺序 ⋅Delphi编程技巧总汇--------[持续更新] 更多帖子 关注私信空间博客 s11ss 本版专家分：15859 红花 2014年10月 Delphi大版内专家分月排行榜第一 2012年12月 Delphi大版内专家分月排行榜第一 黄花 2012年7月 Delphi大版内专家分月排行榜第二 蓝花 2013年8月 Delphi大版内专家分月排行榜第三 2012年8月 Delphi大版内专家分月排行榜第三 2012年6月 Delphi大版内专家分月排行榜第三: 线程2中也用 Synchronize 来同步

0 2009-10-29 12:58:48

只看TA 引用举报 #7 得分 2

⋅Bye 2011, Welcome 2012 ⋅Delphiers 中秋节快乐 ⋅2010年11月2日，老爸老妈的结婚纪念日，散分庆祝。 更多帖子 关注私信空间博客 火龙岛主 本版专家分：41721 蓝花 2003年4月 Delphi大版内专家分月排行榜第三: 饭桶不是已经给例子了吗？
查查有关线程同步的章节！

0 2009-10-29 13:00:15

只看TA 引用举报 #8 得分 1

csdn小虫 本版专家分：381: 线程2 是用timer定时器做的的不能用那个同步的方法

0 2009-10-29 13:42:17

只看TA 引用举报 #9 得分 0