十三、详测 Generics Collections TList (4): AddRange、InsertRange、DeleteRange

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
  List, ListTmp: TList < Byte > ;
  i: Byte;
  str:  string ;
begin
  List : =  TList < Byte > .Create;
  List.AddRange([ 11 , 22 , 33 ]);   // AddRange
  str : =   '' ;
   for  i  in  List  do  str : =  str  +  IntToStr(i)  +   '   ' ;
  ShowMessage(str);

  ListTmp : =  TList < Byte > .Create;
  ListTmp.AddRange([ 44 , 55 ]);
  List.AddRange(ListTmp);
  str : =   '' ;
   for  i  in  List  do  str : =  str  +  IntToStr(i)  +   '   ' ;
  ShowMessage(str);
  List.InsertRange( 1 , ListTmp);   // InsertRange
  str : =   '' ;
   for  i  in  List  do  str : =  str  +  IntToStr(i)  +   '   ' ;
  ShowMessage(str);
  List.DeleteRange( 1 , 3 );   // DeleteRange
  str : =   '' ;
   for  i  in  List  do  str : =  str  +  IntToStr(i)  +   '   ' ;
  ShowMessage(str);
  ListTmp.Free;
  List.Free;
end ;

end .

转载于:https://www.cnblogs.com/jxgxy/archive/2009/11/04/1596046.html