Форум: "Основная";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];
Вниз
dxTreeList Найти похожие ветки
← →
Infom (2004-03-18 10:17) [0]Как в процессе запуска программы в dxTreeList создавать новые item
← →
Курдль © (2004-03-18 13:51) [1]Рабочий пример формирования "дерева" из набора данных (ods1), полученного запросом "...CONNECT BY PRIOR":
procedure TForm1.Create(Sender: TObject);
var trn1: array[0..63] of TdxTreeListNode; level: Integer;
begin
trn1[0]:=nil;
tree1.Visible:=False;
ods1.DisableControls;
ods1.First;
while not ods1.Eof do
begin
level:=ods1.FieldByName("LEVEL").AsInteger;
if level = 1 then trn1[level]:=tree1.Add
else trn1[level]:=trn1[level-1].AddChild;
if trn1[level]<>nil then trn1[level].MakeVisible;
trn1[level].Data:=Ptr(ods1.FieldByName("ACC_ID").AsInteger);
trn1[level].Strings[0]:=ods1.FieldByName("ACC_CODE").AsString;
trn1[level].Strings[1]:=ods1.FieldByName("ACC_NAME").AsString;;
ods1.Next;
end;
ods1.EnableControls;
tree1.Visible:=True;
tree1.FullCollapse;
end;
//-------------------------------------------------------------------------------
← →
Infom (2004-03-18 16:31) [2]Большое спасибо. Все прекрасно работает
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.06 c