delphi队列与堆栈的用法

delphi队列与堆栈的用法2011年11月22日 共有59次浏览
    delphi队列与堆栈：TQueue队列，先进先出。TStack堆栈，后进先出。
1、uses Contnrs;

2、在窗体上放置一个TMemo控件，命名为mmoResult。

3、具体代码如下：

 unit DemoFrm; 
  
 
 interface
  
 
 uses
   
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
   
Dialogs, StdCtrls, Contnrs, ExtCtrls; 
  
 
 //实体记录集 
 type
   
TSignalVO = record
     
Code: String; 
   
end; 
   

PTSignalVO = ^TSignalVO; 
  
 
 type
   
TfrmDemo = class(TForm) 
     
btnQueue: TButton; 
     
mmoResult: TMemo; 
     
btnStack: TButton; 
     
tmSync: TTimer; 
     
tmView: TTimer; 
     
tmNew: TTimer; 
     
procedure btnQueueClick(Sender: TObject); 
     
procedure FormCreate(Sender: TObject); 
     
procedure FormDestroy(Sender: TObject); 
     
procedure btnStackClick(Sender: TObject); 
     
procedure tmSyncTimer(Sender: TObject); 
     
procedure tmViewTimer(Sender: TObject);