Поиск - дальше, назад в TTreeView

[RIO]

Здравствуйте, есть функция :

function TVSearch(T: TTreeView; S: string): TTreeNode;
var
  I: Integer;
  Find: string;
begin
  if (T = nil) or (S = '') then
     Exit;
  for I := 0 to T.Items.Count - 1 do
  begin
       Find := T.Items[I].Text;
       if S = Find then
       begin
          Result := T.Items[I];
          Exit;
       end
       else           
          Result := nil;
  end
end;

Но она ищет только самый первый элемент в дереве. А если дальше есть элементы с таким же именем она их уже не найдет. Как сделать такую функцию которая будет искать - дальше, назад. Как в блокноте Я пробовал так, запоминал где сейчас стоит выделение и начинал цикл с того места и в правду работает, но только тогда когда в дереве всего один уровень, а если их много, то есть в каждом пункте вложены еще подпункты. Тогда этот метод не работает

[mihali4]

var mycounter: integer;
...
function TVSearch(T: TTreeView; S: string): TTreeNode;
var
  I: Integer;
  Find: string;
begin
  if (T = nil) or (S = '') then
     Exit;
  for I := mycounter to T.Items.Count - 1 do
  begin
       Find := T.Items[i].Text;
       if S = Find then
       begin
          Result := T.Items[i];
          mycounter:=i+1;
          Exit;
       end
       else           
          Result := nil;
  end
end;

[RIO]

Спасибо Но не почему-то не работает. Вот мой код :

var
  SearchBox: TSearchBox;
  K: Integer;

implementation

uses Main;

{$R *.dfm}

function TVSearch(T: TTreeView; S: string): TTreeNode;
var
  I: Integer;
  Find: string;
begin
  if (T = nil) or (S = '') then
     Exit;
     for I := K to T.Items.Count - 1 do
     begin
         Find := T.Items[I].Text;
         if S = Find then
         begin
            Result := T.Items[I];
            K := I + 1;
            Exit;
         end
         else
            Result := nil;
     end
end;

procedure TSearchBox.SearchButtonClick(Sender: TObject);
begin
  if Box.TreeView1.Selected.Index = -1 then
     K := 0
  else
     K := Box.TreeView1.Selected.Index + 1;
  Box.TreeView1.Selected := TVSearch(Box.TreeView1, SearchEdit.Text);
end;

end.

[mihali4]

Сообщение от RIO

Спасибо Но не почему-то не работает. Вот мой код

Вы правы - не работает... ваш код не работает...
А мой - работает...

[RIO]

Мой же код ничем не отличается от вашего Только название переменной поменял. Или проблема не в функции, а в событии на кнопке ?

[mihali4]

Сообщение от RIO

Мой же код ничем не отличается от вашего Только название переменной поменял. Или проблема не в функции, а в событии на кнопке ?

Еще как отличается... Что за строка
K := Box.TreeView1.Selected.Index + 1;
И где это у вас меняется TreeView1.Selected ?

Вот вам вариант с вашими переменными:

procedure TForm1.Button9Click(Sender: TObject);
var
  Find,S: string;
begin
S:='12';
  for I := K to TreeView1.Items.Count - 1 do
  begin
       Find := TreeView1.Items[i].Text;
       if S = Find then
       begin
          TreeView1.Items[i].Selected:=True;
          TreeView1.SetFocus;
          Application.ProcessMessages;
          K:=i+1;
          exit;
       end;
  end;
  K:=0;
end;

Хоитите, переделывайте его в функцию...

[RIO]

Огромное спасибо, все работает

О ! Еще вопрос. Переменная K перед циклом же должна задаваться, чему присвоить K ? То есть, это нужно для того, что бы выделить элемент в дереве и начать поиск именно с этого места. А не сначала.

[mihali4]

Изначально у меня она приравнивается нулю при FormCreate.
Далее идет последовательный поиск с этого самого нуля.
Вы можете после задания S (у меня S:='12') задать и значение К...

[RIO]

Хочется сделать что-то типа :

K := Box.TreeView1.Selected.Index;

Что бы поиск начинался с того места где стоит выделение. Но так ничего не работает. Не работает скорее всего из-за того, что есть еще подпункты

[mihali4]

Нет, не работает из-за того, что тут же натыкается на эту же ноду.
А вот если сделать

K := Box.TreeView1.Selected.AbsoluteIndex+1;

тогда будет работать...