Delphi实现的环形缓冲区

Question

   给刚开始学习程序的朋友写了一个环形缓冲区的例子，可以图示出缓冲区中数据的情况。
   TRBInfo保存缓冲区的数据的结构体
  PRBInfo=^TRBInfo;
  TRBInfo=Record
    RTLCS:TRTLCriticalSection;
    HeadIndex:Integer; //指向数据的开头位置
    Position:Integer;  //指向数据的结束位置
    BufferLen:Longint; //缓冲区的长度
    Buffer:Pointer;    //缓冲区指针
  end;
  实现的缓冲区的写入，读取（复制，剪切)，运行中修改缓冲区的长度，修改缓冲区中某一位的数据。
请大家提出更好更高效的修正意见。
环形缓冲区数据情况，分成三种：1 空 2 有数据没有成环 3有数据已经成环程序界面下载地址
http://download.csdn.net/source/3573677

Answer 1

Delphi 很好啊，当然会有人用了。

Answer 2

谢谢楼主,正好需要学习缓冲区呢,
To lm2302293,我们都用Delphi快速开发

Answer 3

楼主,文件不全,少了WinBufferMain.pas

Answer 4

来好意思，WinBufferMain.pas不知怎么尽然保存到上一级目录了。
http://download.csdn.net/source/3574470
重新上传了。

Answer 5

没人顶就就看不到了。
大家注意到新地方下载，原来的少了一个文件。想将原来的删掉或修改一下尽然不可以。http://download.csdn.net/source/3574470