zoukankan      html  css  js  c++  java
  • 二十八、详测 Generics Collections TDictionary(4): OnKeyNotify、OnValueNotify

    unit Unit1;

    interface

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

    type
      TForm1 
    = class(TForm)
        Button1: TButton;
        
    procedure Button1Click(Sender: TObject);
      
    private
        
    procedure KeyNotify(Sender: TObject; const Item: string;
          Action: TCollectionNotification);
        
    procedure ValueNotify(Sender: TObject; const Item: Integer;
          Action: TCollectionNotification);
      
    end;

    var
      Form1: TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.KeyNotify(Sender: TObject; const Item: string;
      Action: TCollectionNotification);
    begin
      
    case Action of
        cnAdded     : ShowMessageFmt(
    'Key_Add: %s', [Item]);
        cnRemoved   : ShowMessageFmt(
    'Key_Remove: %s', [Item]);
        cnExtracted : ShowMessageFmt(
    'Key_Extract: %s', [Item]);
      
    end;
    end;

    procedure TForm1.ValueNotify(Sender: TObject; const Item: Integer;
      Action: TCollectionNotification);
    begin
      
    case Action of
        cnAdded     : ShowMessageFmt(
    'Value_Add: %d', [Item]);
        cnRemoved   : ShowMessageFmt(
    'Value_Remove: %d', [Item]);
        cnExtracted : ShowMessageFmt(
    'Value_Extract: %d', [Item]);
      
    end;
    end;  

    procedure TForm1.Button1Click(Sender: TObject);
    var
      Dictionary: TDictionary
    <string,Integer>;
    begin
      Dictionary :
    = TDictionary<string,Integer>.Create();
      Dictionary.OnKeyNotify :
    = KeyNotify;
      Dictionary.OnValueNotify :
    = ValueNotify;

      Dictionary.Add(
    'n1'111); {Key_Add: n1;  Value_Add: 111}
      Dictionary.Add(
    'n2'222); {Key_Add: n2;  Value_Add: 222}

      Dictionary.AddOrSetValue(
    'n1'123); {Value_Remove: 111;  Value_Add: 123}

      Dictionary.Remove(
    'n1');      {Key_Remove: n1;  Value_Remove: 111}

      Dictionary.ExtractPair(
    'n2'); {Key_Extract: n2;  Value_Extract: 222}

      Dictionary.OnKeyNotify :
    = nil;
      Dictionary.OnValueNotify :
    = nil;
      
      Dictionary.Free;
    end;

    end.
  • 相关阅读:
    ASP.NET 2.0 X64 引起的问题
    .net 俱乐部7月份资料下载 .net 开源项目
    用schemaSpy制作数据库文档
    IbatisNet支持2.0的版本Release 发布了
    Introduction to Model Driven Development with AndroMDA
    开放源代码与.NET应用程序平台的性能测试
    sqlserver 2000/2005 Ambiguous column error错误解决办法
    ASP.NET 2.0 中 Web 事件
    使用asp.net 2.0的CreateUserwizard控件如何向自己的数据表中添加数据
    Working with Windows Workflow Foundation in ASP.NET
  • 原文地址:https://www.cnblogs.com/jxgxy/p/1600936.html
Copyright © 2011-2022 走看看