Текущий архив: 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.018 c
