怎么定位treeview和listview?

Question

做一个循环判断TREEVIEW.Selected.Text即可。

Answer 1

用循环
procedure my_form(mystring:string);
VAR
i:integer;
begin
for i:=0 to treeview1.count-1 do
0Abegin
if pos(treeview1.items[i].text,mystring)<>0 then 
begin
treeview1.selected=treeview1.itemes[i];
 exit;
                        end;    
   
end;
end;
如果想做出那种‘继续查找的效果’只要把i:=0改为i:=treeview1.selected.absolutindex
建议在循环外加一句
if treeview1.selected.absolutindex=treeview1.tiems.count-1
 then treeview1.selected=treeview1.items[1]
================================================================CSDN 论坛助手 Ver 1.0 B0402提供下载。 改进了很多，功能完备！★  浏览帖子速度极快！[建议系统使用ie5.5以上]。 ★  多种帖子实现界面。 
★  保存帖子到本地[html格式]★  监视您关注帖子的回复更新。
★  可以直接发贴、回复帖子★  采用XML接口，可以一次性显示4页帖子,同时支持自定义每次显示帖子数量。可以浏览历史记录！ 
★  支持在线检测程序升级情况，可及时获得程序更新的信息。★★ 签名  ●  
     可以在您的每个帖子的后面自动加上一个自己设计的签名哟。Http://www.ChinaOK.net/csdn/csdn.zip
Http://www.ChinaOK.net/csdn/csdn.rar
Http://www.ChinaOK.net/csdn/csdn.exe    [自解压]

Answer 2

pos(treeview1.items[i].text,mystring)<>0 
这句是什么意思？
MYSRTING呢，
是不是要定位的CAPTION呢？

Answer 3

刚刚把TREEVIEW和LISTVIEW都试了一次
但还没达到我所要实现的目的
嘻~
var i:integer;
mystring:string;
begin
mystring:=edit1.text ;
for i:=0 to treeview1.Items.Count-1 do
beginif pos(treeview1.items[i].text,mystring)<>0 then
begintreeview1.Selected:=treeview1.Items[i];
exit
end;end;执行了只能得出他的TEXT，
怎么才能定位到这条记录呢？
就是要是他成为选中的状态？（我们在TREEVIEW中选中了一条记录，他是会变成蓝色的，嘻~我就要把想要查找的也变成蓝色，就好象选中了一样）

Answer 4

if pos(treeview1.items[i].text,mystring)<>0 then
begintreeview1.itemindex:=i;
end;

Answer 5

你不用那样的，好像有一个FindNode的函数吧

Answer 6

对不起,我刚pos的参数写反了,应该是var
        i:integer;
        mystring:string;
begin
        mystring:=edit1.text ;
        for i:=0 to treeview1.Items.Count-1 do
        begin
                if pos(mystring,treeview1.items[i].text)<>0 then
                begin
                treeview1.Selected:=treeview1.Items[i];
                exit
                end;
        end;
end;