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 .
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 .