如何在内存中创建一个TlistItems，然后定时用此listitems的数据去更新一个listview？

Question

rt

Answer 1

可以建一个tstringlist来实现吧？

Answer 2

我像这样就可以达到你的目的：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, ComCtrls;type
  TForm1 = class(TForm)
    ListView1: TListView;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  ListItems:TListItems;
implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
var
  ListItem: TListItem;
begin
  ListItems := TListItems.Create(ListView1);
  Listitem := ListItems.Add;
  Listitem.Caption := 'aaaa';
end;procedure TForm1.Timer1Timer(Sender: TObject);
var
  NewListItem:TListItem;
begin
  NewListItem := ListItems.Add;
  NewListItem.Caption := 'bbbb';
  ListItems := ListView1.Items;
end;end.

Answer 3

具体你想在TLisItems做什么，当然是你自己决定，比如你在别的事情中对TListItems做了一些操作。

Answer 4

var
  Form1: TForm1;
  ListItems:TListItems;
implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
var
  ListItem: TListItem;
begin
  ListItems := TListItems.Create(ListView1);
  Listitem := ListItems.Add;
  Listitem.Caption := 'aaaa';
end;procedure TForm1.Timer1Timer(Sender: TObject);
var
  NewListItem:TListItem;
begin
  NewListItem := ListItems.Add;
  NewListItem.Caption := 'bbbb';
  ListItems := ListView1.Items;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  NewListItem:TListItem;
begin
  ListItems.Clear;
  NewListItem := ListItems.Add;
  NewListItem.Caption:= 'cctv';
end;end.

Answer 5

to:huangrenguang(湖)
这样的话，ListItems和ListView1地显示是同步更新的。
我需要的是ListItems持续更新。并且定时使用ListItems的数据刷新ListView1的显示

Answer 6

我想定时更新用时钟应该说达到了你的目的，至于你说的持续更新ListItems，我在前面已经说明了，你如何更新那是你自己根据实际情况，对ListItems做响应的处理就行了，比如是新增、删除、还是编辑。

Answer 7

var
  Form1: TForm1;
  ListItems:TListItems;implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);
begin
  ListItems := TListItems.Create(ListView1);
end;procedure TForm1.Button1Click(Sender: TObject);
var
  NewListItem:TListItem;
begin
  ListItems.Clear;
  //在这儿处理ListItems,我想应当就是与你说的持续更新ListItems的一种情况
  NewListItem := ListItems.Add;
  NewListItem.Caption:= 'cctvButton';
end;procedure TForm1.Timer2Timer(Sender: TObject);
var
  NewListItem:TListItem;
begin
  //在这儿处理ListItems,我想应当就是与你说的持续更新ListItems的一种情况
  NewListItem := ListItems.Add;
  NewListItem.Caption:= 'cctvTime';
end;