[Velz]

Здравствуйте.
Столкнулся с некоторыми проблемами при создании объекта и массива этого-же объекта, конкретно - с манипуляцией элементов в массиве.
Объект содержит только энный набор данных и несколько функций "одиночной" обработки.

Код:

type

  TCommand = class (TObject)
    ComList: TStringList;
    Error: Cardinal;
  public
    procedure AssignObjects (ObjArray: array of TObject) ;
    procedure AssignStrings (Str: TStrings);
    procedure AssignObjectsStrings (Str: TStrings);
    constructor Create;
    destructor Free;
  end;

Далее формируются запчасти для массива и сам массив:

Код:

  TCommandStackElement= record
  Command: TCommand;
  Time: TDateTime;
  end;

  TCommandStackElmt = array of TCommandStackElement;
  PCommandStackElmt = ^TCommandStackElmt;


  TCommandStack = class (TObject)
  private
    PCommandStack: PCommandStackElmt;
    Created: Boolean;  //проверка на "созданность"
    FSize: Cardinal;     //под сколько элементов уже выделено памяти
    FCount: Cardinal;  //количество занятых элементов
  public
    function AddNew (ICommand: TCommand): Boolean;
//и остальные функции обработки

На данный момент выделение памяти делаю по блочно (FSize всегда кратно 256 и не меньше FCount)

Код:

ReallocMem(PCommandStack,(FSize)*SizeOf(TCommandStackElement));

Вот здесь возникает 1я проблема - при быстром добавлении элементов, программа не успевает выделить очередной блок памяти и обработать текущую, что ведет к ошибкам. Как можно реанимировать пациента? (вводить в клас дополнительный буллин на состояние ReallocMem, или есть другие методы?)

2я проблема в добавлении элемента - для этого вызывается AddNew (ICommand: TCommand):

Код:

function TCommandStack.AddNew (ICommand: TCommand): Boolean;
var OldLength: Cardinal;
begin
 try
  Result:=True;
  if FSetSize(Self.FCount+1) then
  begin
    Inc(FCount);
    try
      PCommandStack^[Self.FCount].Time:=Now;
      PCommandStack^[Self.FCount].@Command:=@ICommand;
    except
      Result:=False;
      PCommandStack^[Self.FCount].Command:= TCommand.create;
      PCommandStack^[Self.FCount].Command:=ICommand;
    end;
  end;
 except
 end;
end;

Собственно конкретно эта конструкция неверна - PCommandStack^[Self.FCount].@Command:=@ICommand; явно дико воспринимается компилятором (аналог в эксепте - работает). Задумка передачи указателя - после передачи элемента в массив, он все равно тут-же освобождается. Соответственно проще отдать "руль", а не создавать с 0ля. Весь вопрос как это сделать - создавать массив указателей:

Код:

  PCommandStackElement = ^TCommandStackElement;
  TCommandStackElmt = array of ^PCommandStackElement;
  PCommandStackElmt = ^TCommandStackElmt;


  TCommandStack = class (TObject)
  private
    PCommandStack: PCommandStackElmt;

или есть какая-нибудь хитрая функция/процедура?

[icWasya]

Если собрались использовать array of TCommandStackElement, то надо так
PCommandStackElmt = ^TCommandStackElmt; - выкинуть.

Код:

TCommandStack = class (TObject)
  private
    PCommandStack: TCommandStackElmt;//<<==-- здесь так
    Created: Boolean;  //проверка на "созданность"
    FSize: Cardinal;     //под сколько элементов уже выделено памяти
    FCount: Cardinal;  //количество занятых элементов

вместо

Код:

ReallocMem(PCommandStack,(FSize)*SizeOf(TCommandStackElement));

надо

Код:

SetLength(PCommandStack,FSize);

Убрать ^ при обращении к PCommandStack.

и что Вы хотели сделать здесь

Код:

      
      PCommandStack[Self.FCount].@Command:=@ICommand;

и особенно здесь

Код:

      
PCommandStack[Self.FCount].Command:=TCommand.create;
// сначала записываем в поле указатель на только что созданный класс
PCommandStack[Self.FCount].Command:=ICommand;
// а затем затираем его

Если Вы вот этим кодом @Command:=@ICommand; хотите побайтно скопировать содержимое объекта TCommand - то хочу разочаровать - ничего не выйдет.
И немножко ликбеза.
Экземпляры классов в дельфи - всегда указатели.
Копирующего конструктора и поэлементного присваивания по умолчанию для классов НЕТ !. Если они нужны - нужно делать самому. Для некоторых классов копирование содержимого имеется(например TStringList, TBitmap), но у этих классов есть метод Assign, в котором прописано - что и как копируется/присваивается.
Удачи.

[Velz]

К сожалению, использовать SetLength не выходит - установка таким образом длинны массива происходит только 1 раз, потом не меняет (не знаю с чем это связанно), поэтому и пришлось переходить на указатели и использовать выделение памяти. Поэтому в данном случае от PCommandStackElmt = ^TCommandStackElmt; избавиться не удается =(

Код:

PCommandStack[Self.FCount].Command:=TCommand.create;
// сначала записываем в поле указатель на только что созданный класс
PCommandStack[Self.FCount].Command:=ICommand;
// а затем затираем его

Хммм, действительно пересоздавать не надо, спасибо.

Код:

PCommandStack[Self.FCount].@Command:=@ICommand;

В теории, элемент уже создан (где то заранее и передан через AddNew (ICommand: TCommand)), поэтому и была мысля "подменить" указатель, чтобы по возможности минимизировать время обработки, но видимо, нужно будет массив указателей.

Таким образом, остался только вопрос с "безопасной" работой памяти в ReallocMem (ибо избавиться от него не удается). Пытался сделать конструкцию с GetMemory и дополнительным указателем, с последующим копированием данных и переприсвоением указателя:

Код:

GetMem(RecPnt,(BufSize)*SizeOf(TCommandStackElement));
if PCommandStack<>nil then
 begin
   Move(PCommandStack^,RecPnt^,SizeOf(TCommandStack));
   FreeMem(PCommandStack, FSize * SizeOf(TCommandStack));
 end;
PCommandStack := RecPnt;

Но даже эта конструкция не устойчива к быстрой скорости обработки информации.

[icWasya]

>установка таким образом длинны массива происходит только 1 раз
Что значит не меняет, - это как Вы делаете?
А если хотите работать через GetMem, RealocMem, FreeMem? то нельзя использовать динамический массив (array of)

>нужно будет массив указателей
А как я уже говорил в Дельфи экземпляры классов итак указатели.

[Velz]

Сообщение от icWasya

>
Что значит не меняет, - это как Вы делаете?
А если хотите работать через GetMem, RealocMem, FreeMem? то нельзя использовать динамический массив (array of)

изначально был array of TCommandStackElement, и с ним использовался SetLength. Первый прогон установки длинны проходил на ура (SetLength(TCommandStackElmt,FCount); где TCommandStackElmt =array of TCommandStackElement), а вот последующие никак не хотели ее менять. С чем это связанно понять не смог, поэтому перешел на указатель на объявленный массив и соответственно GetMem/RealocMem, FreeMem.

Сообщение от icWasya

>
А как я уже говорил в Дельфи экземпляры классов итак указатели.

Т.е. PCommandStack[Self.FCount].@Command:=@ICommand; аналогично PCommandStack[Self.FCount].Command:=ICommand; ?

[icWasya]

вот это PCommandStack[Self.FCount].@Command вообще не должно скомпилироваться,

А вот это
PCommandStack[Self.FCount].Command:=ICommand;
PCommandStack[Self.FCount].Command:=@ICommand;
одно и то же.

И ещё раз: если работаете с GetMem, ReallocMem, FreeMem, то нельзя использовать динамический массив.
Надо тогда делать так

TCommandStackElmt = array[0 .. MaxInt div 4-1] of TCommandStackElement;
PCommandStackElmt = ^TCommandStackElmt;

и не использовать SetLength никогда