编写实现队列的例程

发布网友发布时间：2022-04-13 10:56

共2个回答

懂视网时间：2022-04-13 15:18

Fqueue是一个非常轻量级、高性能的开源队列服务器，地址：。下面是我在adev淘宝技术嘉年华上分享的《高性能队列Fqueue的设计和使用实践》PPT. 图1 这是总体架构图图2 这是内部存储的原理图有任何问题可以和我微博交流，也可以到Fqueue主页上提交问题。另

Fqueue是一个非常轻量级、高性能的开源队列服务器，服务器空间，地址：。下面是我在adev淘宝技术嘉年华上分享的《高性能队列Fqueue的设计和使用实践》PPT.

图1 这是总体架构图

图2 这是内部存储的原理图

有任何问题可以和我微博交流，也可以到Fqueue主页上提交问题。

另外去哪儿网大量招聘靠谱的技术人员（java,dba,运维），可以把简历发给我li.sunATqunar.com(AT换成@)

下面是全部的PPT

高性能队列Fqueue的设计和使用实践

View more presentations from 孙立，香港空间，香港虚拟主机

热心网友时间：2022-04-13 12:26

TQueue = class
private
FQueue:array[1..10] of integer;
CurentRearPos:integer;
NumOfElem:integer;
protected
procere InitQueue;
public
constructor Create;
procere pushelem(value:integer);
function popelem:integer;
end;

constructor TQueue.Create;
begin
InitQueue;
end;

procere TQueue.InitQueue;
var
i:integer;
begin
for i:=1 to 10 do FQueue[i]:=0;
CurentRearPos:=1;NumOfElem:=0;
end;

function TQueue.popelem: integer;
begin
if NumOfElem>0 then
begin
result:=FQueue[1];
Dec(CurentRearPos);Dec(NumOfElem);
end
else
raise Exception.Create('The Queue is empty.');
end;

procere TQueue.pushelem(value:integer);
begin
if NumOfElem<10 then
begin
FQueue[CurentRearPos]:=Value;
inc(NumOfElem);inc(CurentRearPos);
end
else
raise Exception.Create('The Queue is full.');
end;