Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.09.12;
Скачать: CL | DM;

Вниз

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

 
Злой!!!   (2002-08-29 19:03) [0]

Уважаемый All!
Помогите чайнику разобраться. Есть у меня класс TSmeta, нужно работать с несколькими экземплярами этого класса, но сколько их будет не знаю. Я объявляю массив указателей:

smeta: array of ^TSmeta;

Потом, при добавлении нового элемента пишу:

tmp:=Length(smeta)+1;
SetLength(smeta,tmp);
GetMem(smeta[tmp-1],SizeOf(TSmeta));
smeta[tmp-1]^.Discription:=LabeledEdit1.Text;CODE>

Вроде как все нормально работает. Записываю результат в сроку стриггрида:

Form1.StringGridSmeta.Cells[1,i+1]:=smeta[i]^.Discription;

ругается - "Asccess violation...", причем даже если добавлять любую строку :((
С индексами все нормально, 10 раз проверял. Если убрать добавление нового элемента массива, то любую строку в грид пишет. Выделять память с помощью new пробовал, результат тот же. Фантазия закончилась, чего делать не знаю.

Подскажите плз, что не так делаю, заранее спасибо!


 
Skier ©   (2002-08-29 19:12) [1]

>Злой!!!
1)smeta: array of TSmeta;
2) нужно создавать объекты (экземпляры класса TSmeta) и обязательно их потом уничтожать

соответственно :


var
ASmeta : TSmeta;
begin
//..............
ASmeta := TSmeta.Create(...);
try
//здесь работаешь с объектов ASmeta
finally
FreeAndNil(ASmeta);
end; //try
//..............

3) Form1.StringGridSmeta.Cells[1,i+1]:=smeta[i].Discription


 
Skier ©   (2002-08-29 19:19) [2]

>Злой!!!
И ещё : лучше используй не дин. массив для
своей цели а классы TList или TObjectList
(или их потомки)...


 
Юрий Зотов ©   (2002-08-29 20:28) [3]

> Вроде как все нормально работает

Это только "вроде как". На самом деле дела плохи.

var
Smeta: array of TSmeta; // Не надо указателей.

Добавление нового элемента:

SetLength(Smeta, Length(Smeta) + 1); // И GetMem не нужно.
Smeta[High(Smeta)] := TSmeta.Create; // А вот это нужно.
Smeta[High(Smeta)].Description := LabeledEdit1.Text;

Запись в StringGrid:
Form1.StringGridSmeta.Cells[1, i + 1] := Smeta[i].Description;

Уничтожение i-го элемента:
Smeta[i].Free;

Уничтожение самого массива (после уничтожения всех элементов):
Smeta := nil;


 
Злой!!!   (2002-08-30 11:18) [4]

Всем бАльшое спасибо!
Последний вариант получился.
Обджектлисты обязательно помучаю.



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
1-35779
Romul
2002-08-30 14:42
2002.09.12
Сервис


14-35878
Юрий Зотов
2002-08-18 15:43
2002.09.12
Информация - новый пример в кладовке.


1-35715
$HiC0
2002-09-02 18:48
2002.09.12
Передача двумерного массива методу объекта...


14-35908
Song
2002-08-19 22:25
2002.09.12
Проблема: КАК может частное лицо продать своё ПО юр. лицу,


1-35658
Begin
2002-08-31 21:57
2002.09.12
TDrawGrid проблема