Delphi-内存缓存 -IceCache

摘要： 在这个周六虽然是有如此好的天气可是我没有选择出去，在delphi中之前自己写过一个类似的组件 但是比较粗糙 在我最近一个golang的项目中 我自己也使用了一个 很轻便 设置自己的...

在这个周六虽然是有如此好的天气可是我没有选择出去，

在delphi中之前自己写过一个类似的组件 但是比较粗糙

在我最近一个golang的项目中 我自己也使用了一个 很轻便 设置自己的一些小需求

好吧 我delphi 就没有比较合适的 或者我不知道，，，

我就仿造着golang的写了一个 具有delphi特色的

好吧顺带稍作加强

延续至之前的那个组件  当然之前的比较简单

这次完成重写了，把之前的那个类似的组件删除咯

有给设计概念留着就是支持小命令  这个我实际应用会比较用的多

凌晨一点多了咯 写了一天刚测试完 且写个小demo

待我明天如果还不出去 把之前一个严重的 bug修了

看看能不能打包一个组件包 嘿嘿 有兴趣可以到时候下载了试用看看咯

procedure IceFearlessly_test.Cache;
begin
  with TIceCache.Create(nil) do
  try
    Add('icy','这是什么样的测试呢?',8000);
    writeln(value<string>('icy'));

    Add('int',12121219);
    writeLn(Count.ToString);

    //Remove('icy');
    writeLn(Count.ToString);

    &Set('int','哈哈看看能不能换一下');
    writeln(Value<string>('int'));

    Command('set icy = "这是什么人哦"');

    for var I: integer:= 0 to 10 do
       Sleep(1000);

    Command('set fee =1000000.21');

    writeln(value<string>('icy'));
    writeln(value<Double>('fee').ToString);

    Command('select icy,fee, int');

    with Results do // 这里不是全部因为偷懒写法哦，实质上是可以少调用多次创建。。。。
    begin
      WriteLn(Floats['fee'].ToString);
      WriteLn(Strings['int']);
    end;

    Command('get icy');  // 这个值 其实创建8秒后就销毁啦
    WriteLn(Results.Strings['icy']);  //也就是这里是空的

    writeLn(Count.ToString);
  finally
    Free;
  end;
end;