Модератор: Модераторы
zub писал(а):Какие сложности с пониманием этого?
zub писал(а):Ты издеваешся?
Код: Выделить всё
if Tree1.Items.Item[i].Data^ = FieldByName(idParent).asInteger then ...
zub писал(а):Чтобы окружающие не брезговали пробовать надо 1 - без ненужных зависимостей,
wofs писал(а):Не брезгуйте, давно все перезалито.
Код: Выделить всё
if integer(Tree1.Items.Item[i].Data) = FieldByName(idParent).asInteger then ...
Код: Выделить всё
if integer(Items.Item[iTree].Data) = integer(dbArr[i + 1, 1]) then ...
vitaly_l писал(а):проверял на
Код: Выделить всё
if integer(Items.Item[iTree].Data) = integer(dbArr[i + 1, 1]) then ...
vitaly_l писал(а):У вас не равнозначный пример т.к. в примере вы используете глобальную переменную, а у SQL она локальная и поэтому сегодня локальный адрес работает, а завтра нет. В то время как глобальный в примере - работает всегда.
wofs писал(а):Вы так и не поняли проблему... У меня и так все заполнялось...
Код: Выделить всё
procedure TForm1.EditItemName(Node: TTreeNode; var S: ansistring);
// редактирование узла
var
i: integer;
begin
log(Format('Номер изменяемого узла = %d', [integer(Node.Data)]));
dbArr[integer(Node.Data - 1), 2] := S;
//FillTree();
//Application.QueueAsyncCall(@AsyncFillTree,0); // предложение zub
end;
wofs писал(а):А если что-то стряслось на стороне БД и она не записала изменения?
wofs писал(а):Ладно, закрыли тему.
Код: Выделить всё
procedure TForm1.EditItemName(Node: TTreeNode; var S: ansistring);
// редактирование узла
var
i: integer;
begin
log(Format('Номер изменяемого узла = %d', [integer(Node.Data)]));
dbArr[integer(Node.Data - 1), 2] := S;
//FillTree();
//Application.QueueAsyncCall(@AsyncFillTree,0); // предложение zub
end;
Код: Выделить всё
procedure TForm1.Tree1EditingEnd(Sender: TObject; Node: TTreeNode; Cancel: Boolean);
begin
FillTree();
end;
wofs писал(а):vitaly_l писал(а):даже если потребуется это сочетание написать 1000 раз подряд.
И освобождатьКод: Выделить всё
Dispose(ptrToInt2);
тоже после каждого использования?To deallocate the memory, you use the Dispose command
Код: Выделить всё
TMyTreeNode.Destroy()
begin
Dispose(Data);
inherited Destroy();
end;как бы (правки с форума надо добавить). Если не считать TVirtualDBTree (куда интереснее.. хотя "чистый" VirtualTree куда лучше).вообще можно свой визуальный компонент написать со своими плюшечками.