delphi – 如何设计具有可变数据大小的FIFO队列？

我正在研究FIFO队列(简单的一个,就是首先推出的,首先弹出的)具有可变数据大小,但我不确定我正在设计它的方式.我将在那里存储的数据类型将提前知道,并且假设对于该类的每个实例都是相同的.我正在考虑使用TList,其中将存储具有以下定义的记录(@David – 它是D2007,所以我没有 Generics.Collections可用:)

type
  PListItem = ^TListItem;
  TListItem = record
    Size: Integer; // size of the data pointed by the following member
    Data: Pointer; // pointer to the target data reserved in memory
  end;

像这样的实现(我假装一切正常,所以不使用异常处理)

type
  TListQueue = class
private
  FList: TList;
public
  constructor Create;
  destructor Destroy; override;
  procedure Clear;
  procedure Push(const Value; const Size: Integer);
  procedure Pop(var Value; var Size: Integer);
end;

constructor TListQueue.Create;
begin
  inherited;
  FList := TList.Create;
end;

destructor TListQueue.Destroy;
begin
  Clear;
  FList.Free;
  inherited;
end;

procedure TListQueue.Push(const Value; const Size: Integer);
var ListItem: PListItem;
begin
  New(ListItem);
  ListItem.Size := Size;
  ListItem.Data := AllocMem(Size);
  Move(Value,ListItem.Data^,Size);
  FList.Add(ListItem);
end;

procedure TListQueue.Pop(var Value; var Size: Integer);
var ListItem: PListItem;
begin
  if FList.Count > 0 then
  begin
    ListItem := FList.Items[0];
    Size := ListItem^.Size;
    Move(ListItem.Data^,Value,ListItem.Size);
    FreeMem(ListItem.Data,ListItem.Size);
    Dispose(ListItem);
    FList.Delete(0);
  end;
end;

procedure TListQueue.Clear;
var I: Integer;
    ListItem: PListItem;
begin
  for I := 0 to FList.Count - 1 do
  begin
    ListItem := FList.Items[I];
    FreeMem(ListItem.Data,ListItem.Size);
    Dispose(ListItem);
  end;
  FList.Clear;
end;

我的问题是：
这是如何使FIFO队列(对于字符串,流,记录等数据类型)的有效方式,其大小从几个字节到大约1MB(如果是流)？

非常感谢

type
  PListItem = ^TListItem;
  TListItem = record
    Size: Integer; // size of the data pointed by the following member
    Data: Pointer; // pointer to the target data reserved in memory
    Next: PListItem; // pointer to the next data entry,or nil for the last one.
  end;