ошибка Index is out of bounds

← →
Miron12 (2002-05-28 18:37) [0]

Мужики че тут не так? ошибка выскакиевает если записей больше чем одна "Index is out of bounds[какое то число в зависимости от колва записей]"
for j:=1 to i do
begin
DImag:=ListDImag.Items[po[j].x];
DImgTxt:=ListText.Items[po[j].y];
ListDImag.Delete(po[j].x);
ListText.Delete(po[j].y);
ListDImag.Pack;
ListText.Pack;
DImag.Destroy;
DImgTxt.Destroy;
end;

← →
Reindeer Moss Eater (2002-05-28 18:39) [1]

Массив "Items" базирован нулем

← →
MBo © (2002-05-28 18:40) [2]

for j:=i-1 downto 1 do

точнее downto 0

ошибка Index is out of bounds Найти похожие ветки