Забавный глюк... (наверно у меня...)

← →
AlexSV (2001-12-18 11:37) [12]

Позвольте подсоединиться к диспуту.
А если процедуру немного модифицировать?
Думаю сразу все откроется.

procedure TForm12.InsertTree(Tec:TTreeNode; Ident:Integer);
Var Rubr:TQuery;
Ne:TTreeNode;
begin
{Занесение}
Rubr:=TQuery.Create(nil);
// вообще-то не помешает
try

Rubr.databaseName:="DB";
Rubr.SQL.Clear;
Rubr.SQL.Add("Select * from PMRazdel where Predoc=:Pre order by Ident");
Rubr.Params[0].asInteger:=Ident;
// и здесь
try
Rubr.Open;
While not Rubr.EOF do begin
Ne:=Rub.Items.AddChild(Tec, Rubr.FieldByName("Ident").asString+" "+Rubr.FieldByName("Name").asString);
InsertTree(Ne, Rubr.FieldByName("Ident").asInteger);
Rubr.Next;
end;
Rubr.Close;
except
// здесь, надеюсь, понятно
end;
// и закрываем
finally
Rubr.Free;
end;

end;

Забавный глюк... (наверно у меня...) Найти похожие ветки