一个ListView的问题

Question

请问各位高手：如何得到加入到ListView中的字符串值。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var list :Tlistitem;
    tt,tt1,tt2,tt3 :string;
begin
    list := listview1.Selected;//得到选中行
    tt := list.Caption;//选中行的第一列
    tt1 :=  list.SubItems.Strings[0];//选中行的第2列
    tt2 :=  list.SubItems.Strings[1];;//选中行的第3列
    tt3 :=  list.SubItems.Strings[2];;//选中行的第4列
end;

Answer 2

listview.items[i].text //第i+1行第一列
listview.items[i].subitems[j].text;//第i+1行第j+2列