Проверка TreeView

[Sensizu]

На форме есть компонент TreeView (далее к1) и компонент отображающий файлы компьютера (далее к2).
При дропе из к2 в к1, нужно программно проверить все существующие FirstNodes (т.е материнские узлы, а не дочерние им) и если в к1 существует узел с заголовком файла, который тащится из к2 - то ничего не делать. Помогите это программно реализовать...

Пробовал циклом по количеству узлов, но получается не совсем тот результат:

var s,d:integer; m:integer; i2:array[1..1000] of integer;
begin
RzBox.ApplyFilePath(ShellView.Path) ; // присваиваю еще одному компоненту значение файла из к2, чтобы точно извлечь директорию
m:=0; // Индекс начального узла
for s:=1 to к1.Items.Count do
begin
i2[m]:=Pos(rzBox.Directory,к2.Items.Item[d].Text); d:=d+1;
m:=m+1;
end;

if i2[m]=0 then
begin
Действие, при условии что программа не нашла ни одного узла с таким же именем как и перетаскиваемый файл.
end;

end else Действие обратное;
end;

Т.е. программа выполняет поиск по узлам, но выводит в переименую именно последний результат.. а мне нужно общий результат. Поправьте, если что там не так.

Очень прошу оказать помощь в этом деле. Код только приветствуется.

[mihali4]

проверить все существующие FirstNodes

Эти ноды имеют индекс родителя, равный "-1", так что все проверять не нужно.
То есть вам нужно в вашем цикле вставить проверку

if TreeView.Items.Item[i].Parent.Index<0 then

Хотя у вас там вообще что-то такое написано...

m:=0; // количество найденных дубликатов
for s:=0 to к2.Items.Count-1 do
begin
if к2.Items.Item[s].Parent.Index<0 then
if Pos(rzBox.Directory,к2.Items.Item[s].Text)>0 then
m:=m+1;
end;