線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1305
推到 Plurk!
推到 Facebook!

關於重覆搜尋的問題

答題得分者是:deity
nokib2002
一般會員


發表:22
回覆:48
積分:14
註冊:2009-08-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2010-12-14 23:03:37 IP:122.118.xxx.xxx 訂閱
請教各位大大:
小弟要在動態TreeView中做一個搜尋動態node的Button,簡單來說
就是當我按下Button時,會搜尋下一個,再按一個會再找下一個,如果沒有
的時候,就會跳出訊息說,已無資料搜索,可以給我一個方向或是答案嗎?
謝謝~
------
努力往往是甘苦的!!一起勉勵
nokib2002
一般會員


發表:22
回覆:48
積分:14
註冊:2009-08-09

發送簡訊給我
#2 引用回覆 回覆 發表時間:2010-12-17 12:45:10 IP:59.120.xxx.xxx 訂閱
請教大大:
我有做第一次搜尋,如下,我要怎麼加搜尋下一個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時,會搜尋下一個,再按一個會再找下一個,如果沒有
的時候,就會跳出訊息說,已無資料搜索,可以給我一個方向或是答案嗎?
? 謝謝~

------
努力往往是甘苦的!!一起勉勵
deity
尊榮會員


發表:90
回覆:876
積分:678
註冊:2003-05-09

發送簡訊給我
#3 引用回覆 回覆 發表時間:2010-12-23 16:17:28 IP:113.75.xxx.xxx 未訂閱
定义全局变量:
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版吧。
nokib2002
一般會員


發表:22
回覆:48
積分:14
註冊:2009-08-09

發送簡訊給我
#4 引用回覆 回覆 發表時間:2010-12-23 22:26:18 IP:122.118.xxx.xxx 訂閱
請教Deity前輩及和各位先進:
我看了很久,還是看不出來deity的Delphi的語法,
可以幫我翻一下成BCB,小弟感激不儘, 謝謝!!
------
努力往往是甘苦的!!一起勉勵
編輯記錄
nokib2002 重新編輯於 2010-12-23 07:27:04, 註解 無‧
系統時間:2017-12-12 1:02:22
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!