Из TPoint в TRect

[rainbow]

Приветствую всех! Есть следующий код:

procedure TForm1.Button2Click(Sender: TObject);
var
massivxy: array of TPoint;
massivobj: array of TRect;
i,k,n:integer
begin
k:=StrToInt(Edit1.Text);
n:=StrToInt(Edit2.Text);
SetLength(massivxy,k); //выделяем память для массива
for i:=0 to k do //Заполняем массив случайными значениями
begin
massivxy[i].X:=Random(9);
massivxy[i].Y:=Random(9);
end;
//Затем нужно переписать значения из TPoint в TRect пересчитывая их по формулам
SetLength(massivobj,k);
for i := 0 to k do
begin
massivobj[i].Left:=massivxy[i].X-n;
massivobj[i].Top:=massivxy[i].Y+n;
massivobj[i].Right:=massivxy[i].X+n;
massivobj[i].Bottom:=massivxy[i].Y-n
end;
..................................................
end;

Проблема в том, что на втором цикле, где идет попытка переписать значения из TPoint в TRect вылазит Access Violation at address 00529ACB.Write of Address 00000000. Вопрос: почему?

[evg_m]

SetLength(massivxy,k); //выделяем память для массива

нумерация идет с 0 и заканчивается k-1.

for i := 0 to k do

перебираем 0(1),1(2), ..,k(??) в скобках считаем количество! перебранных.
чему будет равно ?? . правильно оно будет k+1.

[Serge_Bliznykov]

evg_m, +1

  SetLength(massivobj,k);
  for i := 0 to k-1 do

[rainbow]

Спасибо за помощь, сделал так, но почему то, если n>0, то вылазит ошибка: list index out of bounds (-1) (-2 и т.п. на сколько n>0).

[evg_m]

сделал так

Исправил что-то, давай исправленный код. И вопросы задавай по новому коду.

[Serge_Bliznykov]

evg_m, +100500!
точно!

не поленился. проверил код:

procedure TForm1.Button2Click(Sender: TObject);
var
  massivxy: array of TPoint;
  massivobj: array of TRect;
  i, k, n: integer;
begin
  k := 10;
  n := 4;
  SetLength(massivxy, k); //выделяем память для массива
  for i := 0 to k-1 do //Заполняем массив случайными значениями
  begin
    massivxy[i].X := Random(9);
    massivxy[i].Y := Random(9);
  end;
  //Затем нужно переписать значения из TPoint в TRect пересчитывая их по формулам
  SetLength(massivobj, k);
  for i := 0 to k-1 do
  begin
    massivobj[i].Left := massivxy[i].X - n;
    massivobj[i].Top := massivxy[i].Y + n;
    massivobj[i].Right := massivxy[i].X + n;
    massivobj[i].Bottom := massivxy[i].Y - n
  end;
  ShowMessage('Всё получилось!');

  SetLength(massivxy, 0); //очистим массив massivxy
  SetLength(massivobj, 0); //очистим массив massivobj
end;

как и следовало ожидать, всё работает!!

[rainbow]

Странно, но ошибка вылетает, даже try except не помогает.

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,i,j,l,n,k:integer;
massivobj: array of TRect;
massivxy: array of TPoint;
col,colexept,result1: array [0..9] of integer;
begin
k:=UpDown2.Position;
n:=UpDown3.Position; //считываем расстояние N
SetLength(massivxy, k); //выделяем память для массива
  for i := 0 to k-1 do //Заполняем массив случайными значениями
  begin
    massivxy[i].X := Random(9);
    massivxy[i].Y := Random(9);
  end;
SetLength(massivobj,k); //выделяем память для массива
for i := 0 to k do
begin
massivobj[i].Left:=massivxy[i].X-n;
massivobj[i].Top:=massivxy[i].Y+n;
massivobj[i].Right:=massivxy[i].X+n;
massivobj[i].Bottom:=massivxy[i].Y-n;
end;
end;

Причем, если второй цикл убрать из кода, ошибка вылазить перестает.
PS. Разобрался в чем проблема, буду думать как её решить.

[evg_m]

SetLength(massivobj,k); //выделяем память для массива
for i := 0 to k do

Это называется исправил!

[Serge_Bliznykov]

А почему Вы игнорируете то, что Вам пишут?
У Вас ТА ЖЕ САМАЯ ошибка с индексом, о которой Вам толкуют на протяжении всей темы!!!

SetLength(massivxy, k); //выделяем память для массива
  for i := 0 to k-1 do //Заполняем массив случайными значениями
  begin
    massivxy[i].X := Random(9);
    massivxy[i].Y := Random(9);
  end;
SetLength(massivobj,k); //выделяем память для массива
for i := 0 to k - должно быть K-1 do
begin
massivobj[i].Left:=massivxy[i].X-n;

добавлено

Сообщение от evg_m

Это называется исправил!

Ага. Такое впечатление, что мы непонятно объясняем.. или автор топика не читает то, что ему пишут и пытается решить свои проблемы сам. А форум его только отвлекает...

[rainbow]

Сообщение от Serge_Bliznykov

А почему Вы игнорируете то, что Вам пишут?
У Вас ТА ЖЕ САМАЯ ошибка с индексом, о которой Вам толкуют на протяжении всей темы!!!




добавлено

Ага. Такое впечатление, что мы непонятно объясняем.. или автор топика не читает то, что ему пишут и пытается решить свои проблемы сам. А форум его только отвлекает...

Ага, я просто ступил, как оказалось, что исправил k на k-1 не везде. С ошибкой list index out of bounds разобрался, она была перед этим циклом, k обнулялся или делался отрицательным и поэтому цикл не срабатывал.