zzzl - 一个泛型的 memoize 实现 CnPack Forum

CnPack Forum » Blogs » zzzl » 一个泛型的 memoize 实现

一个泛型的 multicast delegate 实现
一个泛型的 memoize 实现

0 members, 2 guests

这个方法的原文在http://blogs.teamb.com/craigstuntz/2008/10/01/37839/  作者似乎讲的很罗嗦，不过如果看完后觉得它没有意义，最好看下原文或搜索下memoize，另外在这个实现里，作者的方法有点巧妙，不为了memoize也可以下载完整的代码看下。

我把它的示例代码简化了一下贴出来，再加上注释，方便大家看。

class function TfrmMemoize.SlowIncrement(ANum: integer): integer;  //先是定义了一个需要缓存结果的函数
begin
  Sleep(1000); //假设这个函数需要花费大量的时间，比如从网络上获取数据之类的，这里用等待一秒来模拟。
  Result := ANum + 1;
end;

procedure TfrmMemoize.FormCreate(Sender: TObject);
begin
  FMemoizedFunc := TMemoize.Memoize<integer,integer>(SlowIncrement);  //这句执行后，FMemoizedFunc就好象是指代了SlowIncrement函数，对FMemoizedFunc的调用，也就是对SlowIncrement的调用，但是它缓存了函数的结果。
end;

//第一次点button1时，会等待一秒才出结果，而第二次点，则立即出现了
procedure TfrmMemoize.Button1Click(Sender: TObject);
var
  Input: integer;
begin
  if TryStrToInt(edtInput.Text, Input) then
   edtOutput.Text := IntToStr(FMemoizedFunc(Input));  //如果showIncrement函数曾经用input参数计算过，就直接取回它的值，否则就进行实际的函数调用。
end;

用工具网站给代码加的高亮，在这用了几次复制粘贴格式有点乱了

完整代码在附件里。

这个方法的一个问题是，被memoize的函数只能有一个泛型参数，如果想幽雅的实现多个似乎是个挑战，也许以后有时间我会完善它

Attachment: memoize_implementation_for_delphi.rar (3.01 K)
Download count 82

Sleep(1000)

friendlinzh Rank: 1

2011-8-18 10:25

Post Comment
This blog was closed or you do not have permission to post comment.