今天做了一个小软件,总结了一些经验与大家共享
日期:2007年5月2日 作者: 查看:[大字体 中字体 小字体]-
今天做了一个小软件,总结了一些经验与大家共享。源代码过一段时间我可能公布,希望与大家共同学习。
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; - [1] [2] 下一页
-
- 今天做了一个小软件,总结了一些经验与大家共享 相关文章:
- ·今天做了一个小软件,总结了一些经验与大家共享
- 今天做了一个小软件,总结了一些经验与大家共享 相关软件
- 特别声明:本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载,但请务必注明出处和原始作
- 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站,我们表示深深的谢意。如果本站转
- 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源:http://www.hackhome.com
精品推荐
热点TOP10
- ·Delphi下的ADO使用方法!
- ·在Delphi中实现数据分析模块的动态报表
- ·在Delphi中控制扫描仪
- ·用拼音首字符来实现检索功能
- ·让Delphi的DBGrid支持鼠标轮
- ·自 动 隐 藏 的 声 象 按 钮
- ·OpenGL简介
- ·用Delphi制作动态有声标签
- ·从 实 例 看 Delphi 4 中 的 动 态
- ·Delphi中为DBGrid控件添加色彩
- ·常用的BCB & Delphi 函数
- ·产生不重复随机数的简便算法
- ·陈经韬2002原创资料
- ·Delphi2005试用版安装指南
- ·Delphi中ListBox控件的六种特效
- ·第三方控件使用方法
- ·关于SMTP和POP3使用及关于客户-服务端的自动连线问题
- ·关于MP3中的ID3V2格式探讨及我写的ID3V2读取源码
- ·监视打印机部分线程内容
- ·获取其他进程中ListView的文本
