zoukankan      html  css  js  c++  java
  • 十二、详测 Generics Collections TList (3): Insert、Delete、Remove、Extract

    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: TList
    <Integer>;
      i: Integer;
      str: 
    string;
    begin
      List :
    = TList<Integer>.Create;
      list.Add(
    111);
      list.Add(
    222);
      list.Add(
    333);
      list.Add(
    444);
      list.Add(
    555);
      List.Insert(
    0,888); //Insert
      List.Insert(
    2,999);
      str :
    = '';
      
    for i in List do str := str + UIntToStr(i) + ' ';
      ShowMessage(str);

      List.Delete(
    0);  //Delete
      List.Delete(List.count 
    - 1);
      str :
    = '';
      
    for i in List do str := str + UIntToStr(i) + ' ';
      ShowMessage(str);
      List.Remove(
    333);    //Remove
      str :
    = '';
      
    for i in List do str := str + UIntToStr(i) + ' ';
      ShowMessage(str);
      List.Extract(
    222);   //Extract
      str :
    = '';
      
    for i in List do str := str + UIntToStr(i) + ' ';
      ShowMessage(str);
      List.Free;
    end;

    end.
  • 相关阅读:
    杭电1013-Digitai Root(另解)
    gets()和getchar()还有getch()的区别
    杭电1013-Digitai Root(这是一道考研编程题-天大2015)
    杭电1062-字符串翻转
    杭电2012-素数判定
    杭电2010-水仙花
    杭电1002-A + B Problem II
    【bzoj4008 hnoi2015】 亚瑟王
    【bzoj4572 scoi2016】围棋
    【bzoj4571 scoi2016】美味
  • 原文地址:https://www.cnblogs.com/jxgxy/p/1595894.html
Copyright © 2011-2022 走看看