add_to_search_index Procedure

Unit
Unit5

Declaration
Procedure add_to_search_index(value: string);

Implementation

procedure add_to_search_index(value:String);
var lst : TStringList; p:Integer; label skip;
begin
lst :=TStringList.Create;
lst.LoadFromFile(get_search_list);
for p:=0 to lst.Count -1 do begin
        if lowercase(lst.Strings[p])=lowercase(value) then goto skip;
end;
lst.Add(value);
lst.Sort;
lst.SaveToFile(get_search_list);
skip:
lst.free;
End;


HTML generated by Time2HELP
http://www.time2help.com