二十二、详测 Generics Collections TQueue (2): Create、Count、Clear、TrimExcess

最新推荐文章于 2023-11-30 11:20:42 发布

weixin_34168700

最新推荐文章于 2023-11-30 11:20:42 发布

阅读量128

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/jxgxy/archive/2009/11/05/1596681.html

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
 Button1: TButton;
 procedure Button1Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

uses
 Generics.Collections;

procedure TForm1.Button1Click(Sender: TObject);
var
 Queue: TQueue<string>;
 List: TList<string>;
 s, str: string;
begin
 List := TList<string>.Create;
 List.AddRange(['aa','bb','cc']);
 Queue := TQueue<string>.Create(List);
 str := '';
 for s in Queue do str := str + s + ' ';
 ShowMessage(str);
 ShowMessage(IntToStr(Queue.Count)); // 3
 Queue.Clear;
 ShowMessage(IntToStr(Queue.Count)); // 0
 Queue.TrimExcess; //好像没什么用
 List.Free;
 Queue.Free;
end;

end.

转载于:https://www.cnblogs.com/jxgxy/archive/2009/11/05/1596681.html