Не соответствие индексов. [Delphi, Windows]
Страницы:
<
1
2
>
RusSun © (2009-12-25 22:23:00)
Добрый день, уважаемые мастера.
Что есть: QuestionList:pList; и
QuestionTreeView:=NewTreeView.
Что пытаюсь сделать: Удалять элемент в QuestionTreeView и
соответстующий ему в
QuestionList.
….
begin {DeleteQstn}//процедура удаления в общем виде
if QuestionTreeView.TVSelected=0 then exit;
if MessageBoxA(0,pchar('Вы действительно хотите удалить
-
'+QuestionTreeView.TVItemText[QuestionTreeView.TVSelected]),'Внимание!!!',MB_OKCAN
CEL+MB_ICONQUESTION)=IDCANCEL then exit;
ResultQ:=ResultQ-1;
QuestionTreeView.TVDelete(QuestionTreeView.TVSelected );
index:=QuestionTreeView.TVSelected;
QuestionList.Delete(index);//
QuestionList.Delete(2); <= сдесь ошибка
ResultView.Clear;
if QuestionTreeView.TVRoot=0 then exit;
QuestionTreeViewSelChange(Sender);
End;
….
В итоге индексы не соответствуют:
в QuestionTreeView
1435345,1478923…и тд.
в QuestionList 0,1,2,3… .
Вопрос как с этим бороться? Может кому-то попадалось что-то
подобное? Если будет небольшой пример, буду очень рад.
mdw (2009-12-28 13:27:00) [21]
Читайте документацию. В ТриВью не индексы а хендлы
узлов.
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
