关于Tlistview的问题(50分)

我用TlistView设成两列，一列显示一条记录的记录名，另一条显示对应记录名的值
如 姓名 张三
年龄 20
职业 学生
用Query连接数据库，请问大侠怎么实现，主要是TlistView显示这样的形式的语句！

为什么不三列呢？

说具体点好吗

简单：

with ListView1.Items.Add do
begin
Caption := '姓名';
SubItems.Add(Query.FieldValues['姓名'].AsString);
end;
with ListView1.Items.Add do
begin
Caption := '年龄';
SubItems.Add(Query.FieldValues['年龄'].AsString);
end;
with ListView1.Items.Add do
begin
Caption := '职业';
SubItems.Add(Query.FieldValues['职业'].AsString);
end;

搞定。

procedure TForm1.Button1Click(Sender: TObject);
var
tmpListItem:TListItem;
begin
Query1.Close;
Query1.SQL.Text:='Select * From HTLBDM';
Query1.Open;
if Query1.RecordCount<=0 then exit;
Query1.First;
while not Query1.Eof do
begin
tmpListItem:=ListView1.Items.Add;
tmpListItem.Caption:=Query1.FieldByName('CODE_HTLBDM').AsString;
tmpListItem.SubItems.add(Query1.FieldByName('NAME_HTLBDM').AsString);
Next;
end;
end;

多人接受答案了。