Цитата:
|
Сообщение от icWasya
Ну так вернёмся к моему первому ответу - если SetLength заработал, тогда
вот это PCommandStackElmt = ^TCommandStackElmt; - не нужно.
используй прямо
Код:
PCommandStack : TCommandStackElmt; |
Ага, как раз проверял - все работает... и даже напрямую (объявление массива в самом классе
Код:
TCommandStack = class (TObject)
private
Created: Boolean;
FSize: Cardinal;
FCount: Cardinal;
function GetLength : Cardinal;
function FSetSize (NewSize: Cardinal) : Boolean;
procedure FSetCount (NewCount: Cardinal);
public
CommandStack: array of TCommandStackElement;
Все отлично, вся проблема только из за "указательной" природы классов, вот и была туча различных ошибок.
P.S. Деструктор все-равно делать, вот только в какой момент и к кому его прикручивать... но это уже другая тема =)