輪廓搜索

Question

IDE：Delphi 1 16位（是的，它是舊的，沒有我買不起更新的版本或者運行它所需的硬件，除此之外我只是學習了Delphi，所以它很好用。）

我已經加載了一個包含名稱的TOutline（代表一個地址簿）。他們按排序順序。我希望能夠搜索大綱。

可能的搜索結果：

1. 整個名稱（如弗蘭克·阿倫·史密斯）
2. 部分名稱（例如，艾倫。）

什麼是搜索輪廓的好，快速的方法？

Answer 1

對於排序列表，您可以使用binary search作爲「BEGINS WITH」，但對於包含，您需要執行linear search（評估每個項目）。它已經一段時間，因爲我已經用Delphi 1的工作，但這裏是線性搜索：

線性搜索：

function OutlineContains(aOutline:tOutline;aText:string;Repos:boolean):boolean; 
var 
    aSearch : string; 
begin 
    Result := false; 
    aSearch := uppercase(aText); 
    for I := 0 to aOutline.Lines.Count-1 do 
    begin 
    if Pos(aSearch,Uppercase(aOutline.Lines.Text[i])) <> 0 then 
     begin 
     Result := true; 
     if Repos then 
      aOutline.SelectedIndex := i; 
     exit; 
     end; 
    end; 
end;