队列与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 := 0 to Max do
    begin
      New(FTelegram);
      with FTelegram^ do
      begin
        DispatchTime:=GetTickCount;
        Sender:=Self.Handle;
        Receiver:=Self.Handle;
        Msg:=i;
        ExtraInfo:=0;
      end;
      Result.Enqueue(FTelegram);//入队
    end;
  end;

begin
  if FPriorityQueue=nil then
    FPriorityQueue:=MakerQueue(15);//创建15个队列项目
  ViewQueue(ListView_Queue,FPriorityQueue);//ListView显示队列
end;

end.