各位先進好!   我想用FindDialog元件在Treeview中查找Node的Text,起初我想用如下的方法.但Nested的If太多,不僅效率低,而且較繁雜.   不知有沒有較簡便的方法?  謝謝! 

procedure TForm1.FindDialog1Find(Sender: TObject);
var
  Node: TTreeNode;
begin
  Node := TreeView1.Selected;
  while Node <> nil do
    begin
     if FindDialog1.frDown then
        if FindDialog1.frMatchCase then
           if  FindDialog1.frWholeWord then
                if Node.Text=FindDialog1.FindText then
                   ...
                else 
                   ...
           else
             ...
        else 
          ...
     else
     .... 
    end;
end; 

Q:如何用FindDialog元件在Treeview中查找Node的Text?

參考看看 http://delphi.about.com/library/weekly/aa010703a.htm http://delphi.about.com/library/weekly/aa042903a.htm    網海無涯，學無止境!

感謝qoo1234 前輩的熱心指點! 實際上,我想問的是在使用FindDialog元件時,如何考慮frMatch,frWholeWord等因素,解決 If Nested過多的問題. 晚輩語義表達不清,請見諒!

我曾經看過李維老師寫的文章《從軟件質量檢驗到設計模式的應用》,提到使用太多If會被Together稱為"CC---Cyclomatic Complexity"的問題,李維老師用Dispatcher設計模式解決. 我提的問題與李維老師的問題稍有不同,但不知如何加以變化,用什麼設計模式. 請各位先進指點,謝謝!

請問 《從軟件質量檢驗到設計模式的應用》,這文章登在那

------
Thomas Chiou

thomas0728,您好! 在《Dr.Dobb's軟件研發》第三期 目錄:http://www.huachu.com.cn/itbook/itbookinfo.asp?lbbh=BI02688302