== 如何在listview里显示数据？ ==

[xingjiaren]

初学delphi，如何把从数据库表中选出的数据显示到listview里，
要求显示列名。
如何取数据，如何显示。希望给些代码提示。

如：
班级 学号 姓名
一班 001 张三
二班 001 李四
。。。。。。。。。
。。。。。。。。。

[xingjiaren]

如何动态的取到表各列的名？

[FrameSniper]

表各列的名应该是实现设计好的吧！自己代码读取就可以了....

[FrameSniper]

表中列是预先设计好的，直接通过代码往出取就可以了！

[IORILI]

呵呵 在向listview中加数据的时候最好有：
tlistview(list).Items.BeginUpdate;/////
NewItem := ListView2.Items.Add;
NewItem.Caption := ADOQuery1.FieldByName('编号').AsString;
tListView(list).Items.EndUpdate;/////
告诉listview要进行更新

[oklida]

var
NewItem : TListItem;
begin
ADOQuery1.Open;
ADOQuery1.First;
While NOT ADOQuery1.Eof do
begin
NewItem := ListView2.Items.Add;
NewItem.Caption := ADOQuery1.FieldByName('编号').AsString;

NewItem.SubItems.Add(ADOQuery1.FieldByName('地址').AsString);

ADOQuery1.Next;
end;

end;

[xingjiaren]

如何找到当前指针的值？

[bluenightsky]

依次读出，添加到listview里不就行了

[ychuiming]

class procedure Tpubfun.writelv(qsy:Tadoquery;ssg:Tlistview);
var
i:integer ;
listitem:Tlistitem;
begin
ssg.Clear;
qsy.open;
qsy.First;
while not qsy.Eof do
begin
listitem:=ssg.Items.add;
listitem.Caption:=trim(qsy.Fields[0].value);
for i:=1 to qsy.FieldCount-1 do
begin
listitem.SubItems.Add(trim(qsy.Fields[i].asstring))
end;
qsy.Next;
end;
end;

[47522341]

var L1: Tlistitem;
with Adoquery1 do
begin
close;
sql.clear;
sql.text := 'select * from table1';
open;
first;
while not eof then
begin
L1 := Listview1.items.add;
L1.caption := fieldbyname('班级').asstring;
L1.subitems.add(fieldbyname('学号').asstring);
L1.subitems.add(fieldbyname('姓名').asstring);

next;
end;
end;

[PaPaCong]

完整的代码如下：
procedure form1.GetStudentInfo;
var NewItem: Tlistitem;
begin
with Adoquery1 do
begin
close;
sql.clear;
sql.text := 'select * from table1';
open;
first;
//添加节点时不更新界面，直到调用endupdate方法时，才更新界面，速度快
Listview1.items.beginUpdate
while not eof then
begin
NewItem := Listview1.items.add;
NewItem.caption := fieldbyname('班级').asstring;
NewItem.subitems.add(fieldbyname('学号').asstring);
NewItem.subitems.add(fieldbyname('姓名').asstring);
NewItem.imageindex:=0; //显示时的图标
NewItem.stateindex:=0; //没有选中时的图标
NewItem.selectedindex:=1; //选中时的图标
next;
end;
ListView1.items.EndUpdate
end;