В чем ошибка

← →
cranium © (2003-01-20 02:07) [0]

D7 ругается на код работающий под D5

TreeNode:=TreeDat.Items.AddChildObject(nil,DatModOsn.IBQ_GRENUMER.FieldByName("GRUPENUM").AsString, pointer(DatModOsn.IBQ_GRENUMER.FieldByName("ID_PARENT").AsInteger));

Пишет [Warning] UnitSys.pas(87): Unsafe type "Pointer"

И какой теперь это переписать?

← →
cranium © (2003-01-20 03:02) [1]

Ладно с этим разобрались,теперь это выглядит так:

TreeNode:=TreeDat.Items.AddChildObject(nil,DatModOsn.IBQ_GRENUMER.FieldByName("GRUPENUM").AsString, PInteger (DatModOsn.IBQ_GRENUMER.FieldByName("ID_PARENT").AsInteger));

Но таже ругань на
IF Node.getFirstChild.Data = nil then begin ..... end;
Как это теперь пишется?

← →
Cranium © (2003-01-20 12:28) [2]

Что ни кто не знает?

← →
Skier © (2003-01-20 12:31) [3]

Отключи этот Warning в настройках.

← →
gsu © (2003-01-20 12:32) [4]

IF Node.getFirstChild = nil then
begin
.....
end;

← →
Cranium © (2003-01-20 12:40) [5]

Мне нужно не проверить наличие ветви, а проверить содержание .Data в ветви...

У мя на D6 не пишет? а что слабо F1 на Unsafe type "Pointer" нажать, тем паче, что это warning ?

Спасибо понял, но HELP там дурацкий, особенно когда не знал английский, да еще забыл его:)))))

В чем ошибка Найти похожие ветки