| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

В чем ошибка [D7]

cranium ©   (2003-01-20 02:07:00) 

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 12:46:00) [1]

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

---

gsu   (2003-01-20 12:44:00) [2]

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

---

Cranium   (2003-01-20 12:40:00) [3]

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

---

gsu   (2003-01-20 12:32:00) [4]

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

---

Skier   (2003-01-20 12:31:00) [5]

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

---

Cranium   (2003-01-20 12:28:00) [6]

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

---

cranium   (2003-01-20 03:02:00) [7]

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

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;
Как это теперь пишется?

---

Наверх