var
s:string;
i:integer;
ListItem:TlistItem;
begin
Listitem:=listview1.Items.Add;
listitem.Caption:='牛年大吉';
listitem.SubItems.Add('牛');
listitem.subitems.Add('气');
listitem.subitems.Add('冲 ');
listitem.subitems.Add('天');
listitem.subitems.Add('哦 ');
end;
procedure TForm1.Button2Click(Sender: TObject); //先建立行列
begin
listview1.Items[1].SubItems.strings[2]:='我';
listview1.Items[2].SubItems.strings[2]:='变';
listview1.Items[3].SubItems.strings[2]:='变';
listview1.Items[4].SubItems.strings[2]:='变'!;
end;