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

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

Не могу понять в чем ошибка... [D6, WinXP]

PaRL ©   (2002-04-25 20:26:00) 


procedure TForm17.FormActivate(Sender: TObject);
type
xxx = array [1..100] of double;
yyy = array [1..100] of string;
var
n, k, z, a, b, m : integer;
p : string;
result : double;
res : xxx;
str : yyy;
begin
n := 0; k := 0; z := 0; a := 0; b := 0; m := 0;
Series1.Clear;
for k := 0 to Form2.Tree.Items[k].Count-1 do
if Assigned(Form2.Tree.Items[k].Parent) then
begin
p := Form2.Tree.Items[k].Parent.Text;

for n := k to Form2.Tree.Items.Count-1 do
if Form2.Tree.Items[n].Parent.Text = p then // ERROR !!??
str[z+1] := p + " " + Form2.Tree.Items[n].Text;
..........


---

PaRL   (2002-04-26 13:58:00) [1]

Аааа! Да я запутался совсем с этими [k] :)

Спасибо.

---

MBo   (2002-04-26 06:00:00) [2]

parent может быть nil
выше же ты проверял
кроме того, настораживает следующая конструкция
for k:= 0 to Form2.Tree.Items[ k].Count-1

---

Наверх