Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 206

/ вопрос открыт /

Доброе время суток, господа программмисты. У меня есть TreeView1, в TreeView1 есть готовый католог, хоче создать в нем подкатолог, как мне проверить если в этом катологе подкатологи с таким же названием, что я хочу создать(вообще катологов много, мне нужно именно этот католог). Если вы знаете самый быстрый способ, пишите его, если нет, то тот что знаете. Заранее благодарен.

Geron Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Geron (статус: 1-ый класс)
Вопрос отправлен: 22 декабря 2006, 00:43
Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: PaVeL-Ekt

Здравствуйте, Geron!

Примерно так:
Var
Node: TTreeNode;
i: integer;
Exist: Boolean;
...
Node:=TreeView1.Items.Item[0]; //индекс вашей ветки дерева
For i:=0 to Node.Count-1 do
If Node.Item[I].Text=Name then Exist:=true;

If Exist then ...

Если Вам нужно проверить и все вложенные подветки тогда используйте рекурсию.

Ответ отправил: PaVeL-Ekt (статус: 2-ой класс)
Время отправки: 22 декабря 2006, 07:49

Ответ #2. Отвечает эксперт: min@y™

function FolderExists(AParentFolder: TTreeNode; const AFolderName: string): Boolean;
var
FNLower: string;
Index: Integer;
begin
Result:= True;
FNLower:= AnsiLowerCase(AFolderName);

for Index:= 0 to AParentFolder.Count - 1 do
if AnsiLowerCase(AParentFolder.Item[Index].Text) = FNLower
then Exit;

Result:= False;
end;

Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 22 декабря 2006, 08:25
Оценка за ответ: 5


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 21 ноября 2017, 11:12
Выполнено за 0.03 сек.
Рейтинг@Mail.ru