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;