Иерархические структуры

← →
Сергей М. © (2007-04-11 08:33) [40]

> но тогда ссылка должна мочь быть null (для самого верхнего
> уровня, над которым уже ничего нет)

Кто сказал, что "должна" ?
Что мешает сделать эту ссылку, например, равной первичному ключу этой же записи ?

← →
Jan1 (2007-04-11 10:07) [41]

> Мои мысли такие: собрать все необходимые для удаления ID
> и одним запросом их удалить.

лишнее. да и на MS SQL не сработает :)

> Q.Close;
> Q.SQL.Clear;
> Q.SQL.Add("SELECT * FROM Dep WHERE ParentID = " + IntToStr(ID));
>
> Q.Open;
> Result := Q.RecordCount > 0;

1. Close, Clear убрать.
2. Используй параметры.
3. Проверку на пустой датасет лучше делать через IsEmpty.

> while not Q.Eof do begin
> Make_Del_List(Q.FieldByName("ID").AsInteger);

1. Что такое Q?
2. Где next?

← →
Jan1 (2007-04-11 10:08) [42]

> 1. Close

нет это не убирай.

Q - это ADOQuery. При помощи него делаю запросы (в частности, определяю есть ли дети)

Иерархические структуры Найти похожие ветки