VPF::Динамические массивы. - Форум программистов

Proxin

Дата 31.8.2009, 21:44 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 363
Регистрация: 21.6.2008

Репутация: 1
Всего: 3

В общем, проблема. Есть свой тип

Код


type SomeShitData=record
        Name:string;
        OtherFlag:boolean;
        end; 
        SomeShitArray=array of SomeShitData;

Есть функция, которая имеет типом результата динамический массив типа SomeShit.
Сама функция:

Код


{global variable arrcount exsists}
function AnFunction(parameterF:string):SomeShitArray;
var i:integer;
begin
i:=1;
arrcount:=1;
repeat
inc(i);setlength(result,i);inc(arrcount);
result[i].Name:='Something';
result[i].OtherFlag:=GVARflagInfo;
until not SomeCondition;
end;

Не смотрите, что с условием антил тут плохо - ещё там кое-что есть, да и при типе функции tstringlist - всё идёт на ура, только данные пишутся в строку чесез пробел. А когда ставлю свой тип - динамический массив записей и пытаюсь присвоить его другому динамическому массиву записей в какой-то другой процедуре так:

Код


procedure SomeProcedure(paramk:string);
var marra:SomeShitArray;
begin
SetLength(marra,arrcount);
marra:=anfunction('myparam');
end;

То вылетает с acsess violation ... write of address. Такое ощущение, что память под массив marra не выделяется.
В чём может быть проблема? Или так нельзя вообще делать?

Это сообщение отредактировал(а) Proxin - 31.8.2009, 21:49

Matematik

Дата 31.8.2009, 23:04 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 7
Всего: 50

Индексы в массиве начинаются от нуля.
Ошибка тут result[i].Name:='Something';
Зайди в настройки проекта и поставь галку Range checking
Project-Options-[x] Compiler-Range checking
И строка SetLength(marra,arrcount); не нужна

Proxin

Дата 31.8.2009, 23:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 363
Регистрация: 21.6.2008

Репутация: 1
Всего: 3

Поставил всё, как Вы сказали. Индексы сделал, чтоб считались от нуля. Теперь стабильно вылетает ошибка записи в адес из одних нулей. Подозреваю, из-за того, что нет SetLength нигде.

Matematik

Дата 1.9.2009, 02:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 7
Всего: 50

Proxin, Дело не в массиве. Параметр Range checking заставляете делать дополнительную проверку чтобы индекс не вышел за размер массива
Например

Код


var arr:array of Integer;
begin
  SetLength(arr, 2);
  arr[2] := 123;
end;

Выполнение этого кода выдаст исключение на строке присвоения 123

Код


'Range check error'

Цитата(Proxin @ 31.8.2009, 23:46

)

вылетает ошибка записи в адес из одних нулей.

bems

Дата 1.9.2009, 16:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88

Код


inc(i);setlength(result,i);inc(arrcount); // после этого последний элемент массива имеет индекс i - 1
result[i].Name:='Something';              // а тут запись в элемент i
result[i].OtherFlag:=GVARflagInfo;

--------------------

Обижено школьников: 8

Proxin

Дата 1.9.2009, 20:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 363
Регистрация: 21.6.2008

Репутация: 1
Всего: 3

Всё, спасибо. Проблема решена.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »