Скачать: CL | DM;

TTreeView...... подскажите где ошибка   Найти похожие ветки 

← →
Term ©   (2003-10-23 16:43) [0]

var CurItem:TTreeNode;
begin
if DataModule1.Spr_Kurs.RecordCount<>0 then
begin
CurItem:=First_Tab.TreeView1.Items.GetFirstNode;
while CurItem<>nil do
begin
if CurItem.Text=DataModule1.Spr_Kurs.FieldByName("KURS_NAME").AsString then
First_Tab.TreeView1.Items.Delete(CurItem);
CurItem:=CurItem.GetNext;
end;
DataModule1.Spr_Kurs.Delete;
выскакивает Accsess Violation.....

---

← →
willys ©   (2003-10-23 16:44) [1]

вызываешь CurItem.GetNext после уничтожения CurItem.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.026 c