您所在位置：主题：ListView.FindCaption的用法...
zaliang
[专家分：1010] 发布于 2007-04-13 17:37:00
大家好:
LV_Main.Clear;
s := 'select xxName from table ';
PubQuery(datamodule1.Q_List, s, 0);//自己编写的一个函数;查询用的;
with datamodule1.Q_List do
begin
for i := 1 to RecordCount do
begin
myItem := LV_Main.Items.Add;
myItem.Caption := Trim(fieldvalues[xxName]);
myitem.ImageIndex := 1;
Next;
end;
end;
//用上述语句在ListView中显示出了表中所有的xxName;
NowItem:=Frm_Main.Lv_main.FindCaption(1,TmpStr,False,True,True);//tmpStr为各个xxName的值;
请问为什么执行到上述语句时会出现错误:读内存地址的错误??????????
LV_Main.Clear;
s := 'select xxName from table ';
PubQuery(datamodule1.Q_List, s, 0);//自己编写的一个函数;查询用的;
with datamodule1.Q_List do
begin
for i := 1 to RecordCount do
begin
myItem := LV_Main.Items.Add;
myItem.Caption := Trim(fieldvalues[xxName]);
myitem.ImageIndex := 1;
Next;
end;
end;
//用上述语句在ListView中显示出了表中所有的xxName;
NowItem:=Frm_Main.Lv_main.FindCaption(1,TmpStr,False,True,True);//tmpStr为各个xxName的值;
请问为什么执行到上述语句时会出现错误:读内存地址的错误??????????
