给你点代码看看吧，不好不过大意就是这样；有个单元是用Delphi XML Data Bandig导入的
data.pas
procedure TMainForm.btnCloseClick(Sender: TObject);
begin
Application.Terminate;
end;
procedure TMainForm.btnGetDataClick(Sender: TObject);
var
XMLFilePath: string;
begin
XMLFilePath := ExtractFileDir(ParamStr(0)) + '\data.xml';
GetDataFromXMLToLV(XMLFilePath);
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
SetListViewColumn();
end;
{----------------------------------------------------------
函数名称: GetDataFromXMLToLV;
函数参数: const aXMLFilePath: string;
参数说明: XML文件的路径;
函数作者: kjiwu
函数返回值: None
函数说明: 从XML文件中取出数据到ListView中；
----------------------------------------------------------}
procedure TMainForm.GetDataFromXMLToLV(const aXMLFilePath: string);
var
Root: IXMLData;
i: Integer;
Node: TListItem;
begin
Root := Loaddata(aXMLFilePath);
for i := 0 to Root.Count-1 do
begin
Node := lv.Items.Add;
with Node do
begin
Caption := Root.Student[i].Name;
SubItems.Add(Root.Student[i].Age);
SubItems.Add(Root.Student[i].Id);
end;
end;
end;
procedure TMainForm.lvClick(Sender: TObject);
begin
if lv.Selected = nil then Exit;
ShowMessage(lv.Selected.SubItems.Strings[1]);
end;
procedure TMainForm.SetListViewColumn;
var
i: Integer;
begin
lv.ViewStyle := vsReport;
for i := 0 to 2 do
begin
lv.Columns.Add;
lv.Column[i].AutoSize := true;
end;
lv.Column[0].Caption := '学生姓名';
lv.Column[1].Caption := '学生年龄';
lv.Column[2].AutoSize := False;
lv.Column[2].Width := 0;
end;
