Добавление объекта в динамический массив

← →
novice (2007-06-08 21:17) [0]

Правильно ли реализован методд AddElement ?
type
Element = class
id: integer;
end;

type
MyClass= class
arobjects: array of Element;
arobjects_count: integer;
constructor Create;
destructor Destroy; override;
procedure LoadFile(FileName: string);
procedure AddElement(elm: Element);
end;

procedure Level.AddElement(elm: Element);
begin
inc(arobjects_count);
SetLength(arobjects,arobjects_count);
arobjects[arobjects_count]:=elm;
end;

после добавления одного элемента, при выходе их программы, возникает ошибка.

← →
trubin © (2007-06-08 21:31) [1]

> arobjects[arobjects_count]:=elm;

arobjects[arobjects_count - 1]:=elm;

← →
Kolan © (2007-06-08 23:36) [2]

> Правильно ли реализован методд AddElement ?

Нет. Ты обращаешься к элементу за пределами массива. Нумерация с 0. Включи Range check в Project-Options.

По существу. Используй Low и High. То есть:
arobjects[High(arobjects)]:=elm;

Кроме того:
1. arobjects_count, MyClass, arobjects  три стиля форматирования :(. Правильно AddElement.
2. arobjects  название непонятное.

← →
novice (2007-06-09 00:39) [3]

в массиве arobjects
После выхода из LoadFile
полная чушь

procedure LoadFile;
...
while not eof (txt) do
begin
temp_obj:=LevelElement.Create;
temp_obj.id:=1;
AddElement(temp_obj);
end
...

Такое ощущение что все ссылается но temp_obj.
параметры объектов не сохраняются.

> LevelElement.Create;

Что такое LevelElement? Класс? Где «T»(TLevelElement)?
Хочешь чтобы отвечающие сломали моск?

В [0]
procedure Level.AddElement(elm: Element);
А ты передаеш LevelElement, это наследник?

И вообще выбрось массив и возьми TObjectList. Тогда твой AddElement не понадобится.

Добавление объекта в динамический массив Найти похожие ветки