Текущий архив: 2006.08.27;
Скачать: CL | DM;

Вниз

динамические массивы...   Найти похожие ветки 

← →
ArtemESC ©   (2006-08-09 14:58) [0]

написал так

procedure DeleteItemFromArray(var arr: array of Word; Index: integer);
var i: integer;
begin
for i := Index to Length(arr) - 2 do arr[i] := arr[i + 1];
SetLength(arr, Length(arr) - 1);
end;

Ошибка вылезает на процедуре SetLength(arr, Length(arr) - 1); потом вспомнил что вроде бы так нельзя, можно ли как-то обойти это ограничение...

---

← →
MBo ©   (2006-08-09 15:05) [1]

ошибка в объявлении процедуры:
var arr: array of Word
это открытый массив, а у тебя должен быть предопределенный тип динамического массива

---

← →
ArtemESC ©   (2006-08-09 15:09) [2]

MBo ©   (09.08.06 15:05) [1]
Thanks, вроде работает....

---

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

Текущий архив: 2006.08.27;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.054 c