0
点赞
收藏
分享

微信扫一扫

ListView 写入到指定行列Demo

祈澈菇凉 2023-08-31 阅读 55


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;

举报

相关推荐

0 条评论