zoukankan      html  css  js  c++  java
  • 十三、详测 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.
  • 相关阅读:
    ATHEROS: ART分区中的数据解析
    提问的智慧<转自chinaunix>
    <转>使用valgrind检查内存问题
    openwrt 文件系统加载分析
    openwrt启动脚本分析
    突发奇想20150126
    Openwrt netifd ubus解析
    <转>如何调试makefile
    openwrt拆离dl目录和toolchain的方法
    建立Go工作环境
  • 原文地址:https://www.cnblogs.com/jxgxy/p/1596046.html
Copyright © 2011-2022 走看看