一个一个遍历 procedure TForm1.Button1Click(Sender: TObject); var i : Integer; begin // showmessage(inttostr(TreeView1.Items.Count)); for i := 0 to TreeView1.Items.Count -1 do begin if TreeView1.Items[i].Text = '1' then begin showmessage('Have finded it'); end; end; end;
谢谢 cyblueboy83(爱情白痴—电脑迷) 让我试试再给分,放心吧!
to cyblueboy83(爱情白痴—电脑迷) 我还有几个 DELPHI 方面的问题在 DELPHI 社区,麻烦你搜索一下,帮我解答。 谢谢
怎样遍历,这不是很麻烦吗?请给出详细代码。
逐个找,GetNextNode之类的方法,自己看Help去http://lysoft.7u7.net
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
// showmessage(inttostr(TreeView1.Items.Count)); for i := 0 to TreeView1.Items.Count -1 do
begin
if TreeView1.Items[i].Text = '1' then
begin
showmessage('Have finded it');
end;
end;
end;
让我试试再给分,放心吧!
我还有几个 DELPHI 方面的问题在 DELPHI 社区,麻烦你搜索一下,帮我解答。
谢谢