Форум: "Основная";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];

Вниз

Не могу понять в чем ошибка...   Найти похожие ветки 

← →
PaRL   (2002-04-25 20:26) [0]


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;
..........


---

← →
MBo   (2002-04-26 06:00) [1]

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

---

← →
PaRL   (2002-04-26 13:58) [2]

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

Спасибо.

---

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

Форум: "Основная";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];

Наверх

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