請教各位大大:
小弟要在動態TreeView中做一個搜尋動態node的Button,簡單來說
就是當我按下Button時,會搜尋下一個,再按一個會再找下一個,如果沒有
的時候,就會跳出訊息說,已無資料搜索,可以給我一個方向或是答案嗎?
謝謝~

------
努力往往是甘苦的!!一起勉勵

請教大大:
我有做第一次搜尋,如下,我要怎麼加搜尋下一個node,我有多一個button來按下一個node,請問我要如何修改或是撰寫???謝謝

[code cpp]
void __fastcall TService_1::Button2Click(TObject *Sender)
{
//檢查Edit輪入框是否有輪入值
if(Trim(Edit1->Text) == "")
{
ShowMessage("未輸入任何數字");
Edit1->SetFocus();
}
else
{
for (int i=0;iItems->Count;i ) {
TTreeNode *Item = TreeView1->Items->Item[i];
//只要有含有Edit裏的值就定位到此節點上
if (Item->Text.Pos(Edit1->Text)) {
Item->Selected = true;
TreeView1->SetFocus();
break;
}
}
}
}
請在此區域輸入程式碼
[/code]



===================引 用 nokib2002 文 章===================
請教各位大大:
?? 小弟要在動態TreeView中做一個搜尋動態node的Button,簡單來說
就是當我按下Button時,會搜尋下一個,再按一個會再找下一個,如果沒有
的時候,就會跳出訊息說,已無資料搜索,可以給我一個方向或是答案嗎?
? 謝謝~

------
努力往往是甘苦的!!一起勉勵

定义全局变量：
FList:TStringlist;
Node:TTreeNode;

1、将TreeView的节点保存至TStringList中。

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
FList:=TStringlist.create;
for I:=0 to TreeView1.items.count-1 do
begin
Node:=TreeView1.items[I];
Flist.addobject(Node.text,Node);
end;
end;

2、对StringList进行定位，重复搜寻。
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=FList.indexof('你要搜寻的节点文本');
if i<>-1 then
begin
Node:=TTreeNode(FList.objects[i]);
FList.Delete(i);
end;
treeview1.selected:=Node;
TreeView1.SetFocus;
end;

大概这样子，是delphi语言，你自己转成BCB版吧。

請教Deity前輩及和各位先進:
我看了很久,還是看不出來deity的Delphi的語法,
可以幫我翻一下成BCB,小弟感激不儘, 謝謝!!

------
努力往往是甘苦的!!一起勉勵

編輯記錄