今天做了一个小软件,总结了一些经验与大家共享。源代码过一段时间我可能公布,希望与大家共同学习。
1、用sender的方式增强代码的健壮性
procedure TMainfrm.CBAutoRunClick(Sender: TObject);
Const
SIGNINREGISTRY = 'WebSuction';
begin
if (Sender as TCheckBox).Checked then //用sender as...的方式可适应
//性更强
AddToAutoRun(Application.ExeName,SIGNINREGISTRY)
else DelAutoRun(SIGNINREGISTRY);
end;
即使Checkbox1改了名字也不怕
又如:
procedure TMainfrm.N1Click(Sender: TObject);
begin
if (Sender as TMenuItem).Caption = '暂停(&S)' then
begin
(Sender as TMenuItem).Caption := '开始(&R)';
FWebPageSaver.Pause;
end
else
begin
(Sender as TMenuItem).Caption := '暂停(&S)';
FWebPageSaver.ReStart;
end;
end;
2、不要出现魔法数
function ExtractFileNameFromText( AText : string): string;
Const
MAXLENGTH = 250;//Max length of filename
var
LTextLength, I : integer;
LString : string;
begin
LString := AText;
LTextLength := Length(LString);
for I := 0 to LTextLength-1 do
begin
if IsInvalidChar(LString[I]) then
LString[I] := 'n';//Change the Invalid char with 'n'
end;
//在返回语句与前面的代码之间用空行隔开
result := LeftStr(LString,MAXLENGTH);//让人一看就知道MAXLENGTH是什么意思,比直接写250好
end;
3、错落有致
procedure TMainfrm.WMHotKey(var Msg : TWMHotKey);
begin
if (Msg.HotKey = FHotKeyId) and (ClipBoard.HasFormat(CF_TEXT)) and
(not ClipBoard.HasFormat(CF_PICTURE)) then//不要超过一行能容纳的字数
FWebPageSaver.NewTextFile(ClipBoard.AsText);
end;
4、不要直接使用Tform2单元的全局Form2变量,那样就破坏了封装性
procedure TMainfrm.SBNextClick(Sender: TObject);
var
LSelectedIndex : integer;
FormDisplay : Tform2;
begin
LSelectedIndex := LBWebPage.ItemIndex;
if LSelectedIndex <> -1 then
begin
FormDisplay := Tform2.Create(self);
FormDisplay.SetContent(FWebCracker.GetWebText(LSelectedIndex));
FormDisplay.Show;
end;
end;
在TForm2中定义 SetContent方法
procedure TWebCrackfrm.SetContent(AText:string);
begin
Memo.Clear;
Memo.Lines.Add(AText);
end;
5 用面向对象的方法使用delphi。
这是我做这个软件最大的体会,以前我用面向过程的方法做过这个软件,代码思路特别乱,现在用了OO的方法就是不一样
这个一句两句可说不清楚,公布源码后大家自己看吧
下载地址:
http://lincosoft.go.nease.net/
分享到:
相关推荐
一位软件工程师的6年经验总结 共享给各位同仁欣赏一下
现在软件测试工作越来越收到企业的重视,许多人员也投入到软件测试的行列中来,软件测试工程师的队伍...本文根据自己多年来在IT公司从事软件测试的经验总结了一些东西给大家共享,同时也希望大家提出宝贵的意见和建议。
利用Samba软件包架设一台资源共享服务器。 2. 实训内容 1) 设置samba服务器所在工作组为workgroup。 2) 设置服务器名为sambasever。 3) 设置samba服务器为用户级访问。 4) 设置共享目录/samba/share,所有用户都能...
J2EE软件工程师全部培训课程总结几乎包括了JAVA程序员和JAVA软件...看了之后,觉得这些核心技术资料的总结比自己的总结还细,本人觉得这套资料真的很不错,现上传给大家共享勉励,希望对大家进一步深入学习JAVA有帮助!
共享及项目需要整理并不断完善一部解决阶段性常见问题的实用百科全书,就如每个微软软件附带的帮助功能一样方便使用者自我查询问题与解决方案。 二、成本、效率、质量是目前共享建设主要考虑。 对共享服务的使用者...
软件架构的分析与设计总结 很好.doc 详细介绍了架构发分析步骤以及架构图的设计。内容详细,通俗易懂。 对初学者和中级架构师很有帮助。资料免费共享。
成为一名软件测试工程师要具备什么软件测试本文根据自己多年来在IT公司从事软件测试的经验总结了一些东西给大家共享,同时也希望大家提出宝贵的意见和建议。起码有三年以上的软件开发经验现在许多软件企业招收一些...
但有线网络也有两种方案适合组建一个50台计算机的网络,一种是采用带路由功能的ADSL Modem加上一个超过50口的交换机,实现ADSL共享上网,但这种方式组建的网络性能较差。另外一种就是采用路由器加交换机组网,这种...
当前,很多企业都在局域网搭建了文件服务器,用于共享文件供局域网用户访问使用,并且很多共享文件都是单位积累的无形资产和商业机密,如何在允许员工访问服务器共享文件的同时还能保证服务器的安全呢?防止员工复制...
据我所知,在珠三角有非常多的邦定机研发企业,大家差不多都在同一起跑线上,所以,很多卡住的做此研发的兄弟可能就因为一小点东西,希望此代码能给你一点帮助。 总结:一个运行在windows平台上的高性能邦定机控制...
网络是指“三网”,即电信网络、有线电视网络和计算机网络。互联网是“网络的网络” ...可以是信息共享、软件共享,也可以是硬件共享--------------从谢希仁老师总结 自己总结 有新见解 ----------625500969
如同任何事物都有一个发生、发展、成熟直至衰亡的全过程一样,软件系统或软件产品也有一个定义、开发、运行维护直至被淘汰这样的全过程,我们把软件将要经历的这个全过程称为软件的生命周期。它包含:软件定义、软件...
当前,很多企业都在局域网搭建了文件服务器,用于共享文件供局域网用户访问使用,并且很多共享文件都是单位积累的无形资产和商业机密,如何在允许员工访问服务器共享文件的同时还能保证服务器的安全呢?防止员工复制...
本来我是本着共享资源的原则发文档,但是网上大家都要分,因为我需要分下别人共享,所以小收3分,这是数据学习总结文档,可能有点粗糙
很多时候我们可能需要设置共享文件夹供局域网用户访问,那么如何设置?下面小编就给大家总结了一些局域网共享设置的相关方法,大家可以参考下
一个软件代理程序(接口引擎)被用作产品/组件,以与专业应用的工作流保持一致和促进专业应用的工作流。 本白皮书中详细介绍了开发和部署DICOM代理程序的经验、以便在心脏病科中支持无缝Cath/Echo工作流,从而: •...
图1 图2代码都通过文件夹分类首先是内容提供者Lab8ContentProvider(应用一)还有SQL的HELPER:SQLiteUtil对应注册清单文件<p
并行计算是90年代计算技术的一个重要组成部分,它在未来20年的影响可能与微处理器在过去20年的影响一样大。 事实上,随着高度集成的微处理器和内存芯片的发展,使得多处理器系统越来越具有吸引力,这两种技术紧密...