今天做了一个小软件，总结了一些经验与大家共享

• 
  　　今天做了一个小软件，总结了一些经验与大家共享。源代码过一段时间我可能公布，希望与大家共同学习。
  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] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 今天做了一个小软件，总结了一些经验与大家共享 相关文章：
• ·今天做了一个小软件，总结了一些经验与大家共享
• 今天做了一个小软件，总结了一些经验与大家共享 相关软件

上一篇:用DELPHI 设 计 屏 幕 保 护 程 序

下一篇:Delphi实现DBGrid列宽度自动调整

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐