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

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

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

Вопрос задал: 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

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

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

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