肉夹膜式执行方法

原创 2006年06月08日 13:37:00

很多时候,我们遇到这样得情况:

       在很多方法的前面部分和后面部分(可能只有一句代码)都一样,或者相似。 比如在一个需要花费些许时间的处理中,我们经常会在处理的同时显示一个进度条,这样给客户和我们自己一点信心。 可是如果有很多这样的处理,我们就会发现有这样代码

procedure  perform1;

begin

    ShowAProgress('正在连接。。。');

   .....

   CloseProgress;

end;

procedure performN

begin

    ShowAProgress('正在处理××,请稍等。。。');

   .....

   CloseProgress;

end;

显然我们的代码重复了。 解决这样的问题,应该有很多办法吧。 我不知道别人怎么解决的,下面是我的解决办法:

type
  TProc = procedure of object;
 

  procedure RunWithProgress(P: TProc);   ///  我管它叫夹饼方法。  不知道大家有没有意见。

implementation

procedure TForm1.Aloop;  //  某个处理。
var
  iLoop: Integer;
begin
  chk1.Checked := True;
  while chk1.Checked do
  begin
    Application.ProcessMessages;
    Inc(iLoop);
  end;
end;

procedure TForm1.RunWithProgress(P: TProc);   // 夹饼的实现。
begin
  ShowGaugeWithAvi('it is running....');
  p;
  CloseGauge;
end;

procedure TForm1.Button1Click(Sender: TObject);  //  每次只要调用夹饼就可以了。
var
  P: TProc;
begin
   P := aloop;
   RunWithProgress(p);  
end;

end.

 

  不知道有没有不同看法。。。

蕤仁肉(内仁肉、泪仁肉)简介

中文名称: 蕤仁,亦名内仁肉、泪仁肉、白荽拼音名:Ruiren英文名:NUX PRINSEPIAE 来源:本品为蔷薇科植物蕤核 Prinsepia uniflora Batal . 或齿叶扁核木 Pr...
  • nhconch
  • nhconch
  • 2005年03月31日 17:40
  • 26821

一张图学会认清里脊肉、五花肉、梅花肉到底是如何划分的

图片来自 华润万家超市
  • imanapple
  • imanapple
  • 2015年08月25日 13:40
  • 1152

肉刷——App推广作弊内幕系列

肉刷——App推广作弊内幕系列 以史为贱 · 6 个月前 肉刷是APP推广流量作假常用手段之一,与机刷共同构成了机器刷量的最主要的两种手段。从场景上看,骇人听闻,但作弊技术水平不高,制造假...
  • qiezikuaichuan
  • qiezikuaichuan
  • 2016年11月09日 17:53
  • 1330

猪肉各个部位分布图

1、猪头 2、凤头皮肉 3、槽头肉 4、前腿肉 5、前肘 6、猪手 7、里脊皮肉 8、正宝肋 9、五花肉 10、奶脯肉 11、后腿肉 12、后肘 13、后脚 14臀尖 15、猪尾巴。   1、猪...
  • agwtpcbox
  • agwtpcbox
  • 2014年08月06日 16:04
  • 1528

安阳小吃-腐乳肉的做法

 原料   五花猪肉500g,红腐乳汁125g,姜3片,葱2段,鸡精3g,盐3g,白糖30g,黄酒30ml,红米10g,大料2只,桂皮1支,香油5ml。  制法   1.将五花肉洗干净,清理掉细毛,放...
  • dfman1978
  • dfman1978
  • 2008年03月09日 10:20
  • 10278

微积分之两边夹定理

两边夹定理:     如果函数f(x),g(x),h(x)满足下列条件:     1.当x∈{x|0<|x-x0|<δ}时,有g(x)≤f(x)≤h(x)     2.当x→x0时,有g(x)→...
  • KjfureOne
  • KjfureOne
  • 2016年10月12日 18:06
  • 811

程序的血和肉--基本组成

【一】:程序的血和肉--基本组成        在看代码之前,先和大家说下cocos2dx的组成成分。        cocos2dx项目中由以下4个基本组成成分:CCSp...
  • LIANGXIAOYAN7002
  • LIANGXIAOYAN7002
  • 2014年04月30日 16:09
  • 444

神秘的国家储备肉 续集

摘自某经济论坛,消息来源未经证实,纯粹拿来作为我前一篇《神秘的国家储备肉》的第三方续集,以博一笑:"国家战略储备肉"终于歇菜,财...
  • GODFIRE
  • GODFIRE
  • 2007年08月20日 00:09
  • 738

自己收藏的两款夹娃娃PHP源码

微信红色抓娃娃三级分销源码加第三方支付 http://www.sucaihuo.com/php/2027.html 账号123,密码123 无需公众号(想要在微信内自动登录,必须绑定...
  • adouzai416148489
  • adouzai416148489
  • 2017年06月07日 07:24
  • 1448

双腿夹球接力

将球放在两膝上方用劲夹住,走到对面终点处,将球交给对面队友,循环反复至全队结束,时间最短者为胜。 规则:(1):必须从起点线后起步。(2):如中途皮球脱离须在原地把球拣起夹好后继续比赛。(3):...
  • u015587129
  • u015587129
  • 2014年05月19日 21:19
  • 1436
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:肉夹膜式执行方法
举报原因:
原因补充:

(最多只允许输入30个字)