队列与DelphiXe新语法

好久没写代码了，更久没上博客园的博客了，无聊写几行试一下新语法。

  1 unit Main;

 interface

 uses

   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

   Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls,

   iHome.Helper.Telegram,

   Generics.Collections;

 type

   TMainForm = class(TForm)

     ListView_Queue: TListView;

     btEnQueue: TButton;

     btDeQueue: TButton;

     procedure btEnQueueClick(Sender: TObject);

   private

     { Private declarations }

       FPriorityQueue:TQueue<PTelegram>;

       procedure SetupListView(ListView:TListView);

       procedure ViewQueue(ListView:TListView;PriorityQueue:TQueue<PTelegram>);

   public

     { Public declarations }

   end;

 var

   MainForm: TMainForm;

 implementation

 {$R *.dfm}

 procedure TMainForm.SetupListView(ListView: TListView);

   procedure SetupListViewColumns(Columns:TListColumns);

   begin

     Columns.Clear;

     TListColumn(Columns.Add).Caption:='Caption';

     TListColumn(Columns.Add).Caption:='Message';

     TListColumn(Columns.Add).Caption:='Sender';

     TListColumn(Columns.Add).Caption:='Receiver';

     TListColumn(Columns.Add).Caption:='DispatchTime';

     TListColumn(Columns.Add).Caption:='ExtraInfo';

    end;

 begin

   ListView.ViewStyle:=vsReport;//报表格式显示

   SetupListViewColumns(ListView.Columns); //设置显示列名

 end;

 procedure TMainForm.ViewQueue(ListView:TListView;PriorityQueue:TQueue<PTelegram>);

 var

   FpTelegram:PTelegram;

   procedure ViewQueueItem(ListItem:TListItem);

   begin

     with ListItem do

     begin

       Caption := IntToStr(FpTelegram^.msg);

       SubItems.Add(IntToStr(FpTelegram^.msg));

       SubItems.Add(IntToStr(FpTelegram^.Sender));

       SubItems.Add(IntToStr(FpTelegram^.Receiver));

       SubItems.Add(IntToStr(FpTelegram^.DispatchTime));

       SubItems.Add(IntToStr(FpTelegram^.ExtraInfo));

     end;

   end;

 begin

   try

     ListView.Items.BeginUpdate;

     ListView.Clear;

     SetupListView(ListView);//设置ListView显示设置

     for FpTelegram in PriorityQueue do ViewQueueItem(ListView.Items.Add);//显示队列项目

   finally

     ListView.Items.EndUpdate

   end;

 end;

 procedure TMainForm.btEnQueueClick(Sender: TObject);

 var

   FTelegram:PTelegram;

   function MakerQueue(Max:Integer):TQueue<PTelegram>;

   var

     i:Integer;

   begin

     Result:=TQueue<PTelegram>.Create;//创建优先队列

     for I :=  to Max do

     begin

       New(FTelegram);

       with FTelegram^ do

       begin

         DispatchTime:=GetTickCount;

         Sender:=Self.Handle;

         Receiver:=Self.Handle;

         Msg:=i;

         ExtraInfo:=;

       end;

       Result.Enqueue(FTelegram);//入队

     end;

   end;

 begin

   if FPriorityQueue=nil then

     FPriorityQueue:=MakerQueue();//创建15个队列项目

   ViewQueue(ListView_Queue,FPriorityQueue);//ListView显示队列

 end;

 end.