一个队列类的实现(比delphi自带的速度快70倍)

原创

于 2011-07-05 12:50:53 发布 · 2.6k 阅读

5 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #integer #thread #constructor #destructor #function

本文介绍了一个用Delphi编写的高效线程安全队列类TsfQueue，其性能比Delphi自带的队列快70倍。代码中包含了线程安全的锁机制，并提供了Push和Pop操作。通过测试函数展示了其在大量数据操作下的速度优势。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

测试结果

实现的代码

unit sfContnrs;

interface

{$DEFINE MULTI_THREAD_QUEUE} //线程安全版本，如果不需要线程安全，请注释掉此行代码

{$IFDEF MULTI_THREAD_QUEUE}
uses
Windows;
{$ENDIF}

type
TsfQueue=class
private
    FCapacity:Integer;
    FTmpBuff:Pointer;
    FBuff:Pointer;
    FPosition:Integer;
{$IFDEF MULTI_THREAD_QUEUE}
    FCS:TRTLCriticalSection;
{$ENDIF}
    //\\
    FPushIndex:Integer;
    FPopIndex:Integer;

    procedure Lock();
    procedure UnLock();
    procedure Inernal_SetCapacity(const Value:Integer);
    //\\
    procedure setCapacity(const Value: Integer);
    function getCapacity: Integer;
public
    constructor Create(InitCapacity: Integer=1024);
    destructor Destroy();override;
    //\\
    function Push(AItem: Pointer): Pointer;
    function Pop(): Pointer;
public
    property Capacity:Integer read getCapacity write setCapacity