var  ListItem: TListItem;去掉

解决方案 »

  1.   

    奇怪啦,你客户端推出,你执行了什么?怎么可能改服务器的listview???
    肯定是执行了什么
      

  2.   

    procedure Tre_data.get_zx(const vname: WideString);
    //不知道你这是什么控件的事件函数还是你自己的过程
    var  ListItem: TListItem;
    //这是局部变量,在该过程结束时,就释放了,
    begin
      ListItem := form1.listview1.Items.Add;  // 增加行
      //ListItem是个对象,你没有Create怎么就去调用它的成员函数了?
      //应该有一句 ListItem := TListItem.Create(ListView1);
      listitem.Caption:=vname;
      listItem.SubItems.Add('');//datetimetostr(now));
      listItem.SubItems.Add('');
    end;
      

  3.   

    楼上老兄说的不对,跟这个没关系。
    : dana(dana) 你把你的代码全贴出来,让大家研究一下
      

  4.   

    说来没人信,我在mainform的create中加入如征代码,就好了。
    var  ListItem: TListItem;
    begin
     with form1.listview1 do 
      begin
      for i:=0 to 0 do 
        begin
        ListItem := form1.listview1.Items.Add;  // 增加行
        listitem.Caption:='';
        listItem.SubItems.Add('');//datetimetostr(now));
        listItem.SubItems.Add('');
        end;
       clear;     //先增加,后删除。
      end;