Проблема с заполнением treeView.Items[i].Data [D6, WinXP]
Страницы:
<
1
2
>
Zabludshiy © (2008-02-13 18:13:00)
Доброго времени суток!
Вот собственно код:
var arr: array of integer; tn:tTreeNode;
while not MTE.Eof do
begin
setlength(arr,length(arr)+1);
arr[length(arr)-1]:=MTE.FieldByName('ID').AsInteger;
if MTE.FieldByName('P_ID').AsInteger = 0 then
begin
tn:=TV1.Items.AddObject(nil,MTE.FieldByName('TEXT').AsString,@(arr[(length(arr)-1)]));
end
else
for i:=0 to TV1.Items.Count-1 do
if integer(TV1.Items[i].Data^) =
MTE.FieldByName('P_ID').AsInteger then
tn:=TV1.Items.AddChildObject(TV1.Items[i],MTE.FieldByName('TEXT').AsString,@(arr
[(length(arr)-1)]));
MTE.Next;
end;
Проблема возникает со свойством Items[i].Data, там должна
быть ссылка на элемент массива, а получается сцылка на полный бред
:-( Буду благодарен если обьясните что не так делаю, и как
правильно.
Джо (2008-02-13 18:15:00) [21]
Код смотреть лень.
Дин. массив объявлен в процедуре? После выхода из нее он
финализируется.
Страницы:
<
1
2
>
Наверх 
ЧАТ |
Орешник |
|
