| Eternal |
| Отправлено: 12.05.2004, 23:14 |
|
Не зарегистрирован
|
Тут наваляв:
| CODE | ADOT->Active = false;
ADOT->TableName = "Entity";
ADOT->Active = true;
TTreeNode *NOD = NULL;
ADOT->First();
while (!ADOT->Eof)
{
NOD = DuplicateNode(ADOT->Fields->Fields[2]->AsString, Org);
if (NOD == NULL)
{ Org = TV->Items->Add(NULL, ADOT->Fields->Fields[2]->AsString);
Org->ImageIndex = 1;
Ent = TV->Items->AddChildObject(Org, ADOT->Fields->Fields[1]->AsString, (int *) ADOT->Fields->Fields[0]->AsInteger);
Ent->ImageIndex = 2;
}
else {
Ent = TV->Items->AddChildObject(NOD, ADOT->Fields->Fields[1]->AsString, (int *) ADOT->Fields->Fields[0]->AsInteger);
Ent->ImageIndex = 2;
} |
Тут Ent i Org — TtreeNode,
ADOT — TADOTable
Потім всі Node->Data = 1 ?????? хоча там зовсім інші числа.
PLZ HeLP |
|
|
