Показать сообщение отдельно
  #10  
Старый 20.12.2018, 20:29
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,003
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Да, написал бред. Именно потому, что там указатели должны быть.
Вообще, я бы рекомендовал не заморачиваться с классическими указателями, а делать классы/объекты. Кстати, для хранения списка объектов есть специальный класс - TObjectList. Там есть еще один моментик - либо надо установить владение итемами в False, либо для получения задания использовать метод Extract.
Ну а в случае использования record и TList, должно быть как-то так:
Код:
type
  TSomeData = record
  ...
  end;
  PSomeData = ^TSomeData;

procedure AddToQueue;
var SomeData: PSomeData;
      i: Integer;
begin
 for i:= 0 to someNamber do
 begin
  New(SomeData);
  SomeData.n1:= //bla bla bla
  SomeData.n2:= //bla bla bla
  ....
  SomeData.m2:= //bla bla bla
  List.Add(SomeData);
 end;
Ну и при удалении не забываем очищать память через Dispose.
Ответить с цитированием