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

今天做了一个小软件，总结了一些经验与大家共享。源代码过一段时间我可能公布，希望与大家共同学习。
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的方法就是不一样
这个一句两句可说不清楚，等我公布源码后大家自己看吧，也希望大家多提建议！

解决方案 »

  1.   

    也给我一个吧 [email protected]
      

  2.   

    支持！
    [email protected]
      

  3.   

    这种思路很好,但因为FormDisplay是局部变量,过了这个过程,FormDisplay就不存在了.
    你怎么访问你创建的TForm2呢?
        FormDisplay := Tform2.Create(self);
        FormDisplay.SetContent(FWebCracker.GetWebText(LSelectedIndex));
        FormDisplay.Show;
    Delphi编码原则中就有这些.比如多用With等.
      

  4.   

    期待中....
    [email protected]
      

  5.   

    我等着你的代码
    [email protected]
      

  6.   

    要一份来学习：）
    [email protected]
      

  7.   

    waitting your [email protected]
      

  8.   

    下载地址：
    http://online.sdu.edu.cn/home/sduhome/lincosoft/websuctioncode.rar
    或http://www.efile.com.cn/?liumazi    
      

  9.   

    哈哈,也给小弟我来一份呀
    [email protected]
      

  10.   

    hawksoft(明月清风) 说的很有道理，当该函数调用完成以后，就再也不能找不到FORM2了。
    因为是用SHOW的，所以一直执行。也许楼主是打算用完让用户CLOSE的。
      

  11.   

    有代码也发一份给我吧[email protected]
      

  12.   

    有代码也发一份给我吧[email protected]
      

  13.   

    偶想用MCI_?也就是不用控件做个MP3播放器，不知这些命令在XP下会不会有问题
    也就是要求98/2000/XP下都可以，问下 VB里GETCURSORPOS这个API在XP下可以用吗？有什么区别？
      

  14.   

    等待代码来学习...
    [email protected]
      

  15.   

    思路很好，精神也很好，有了代码，一定要通知我，我也要一份，共同进步么
    [email protected]