首頁 > 資訊科技 > PHP > 程式碼簡化的好處
2012
05-21

程式碼簡化的好處

今天在寫程式發現有一段 procedure 似乎很像新手寫的,於是問SAM看看,原來簡化程式碼也是很重要的。
SAM說:一方面是為的不要讓維護者看一長串的程式碼;一方面當行數上千行時 debug 會有問題。

而我只是為了不讓人家覺得我是新手,跟爽度而已。

原本的程式碼是
[delphi]procedure TForm1.actCheckStatusExecute(Sender: TObject);
begin
if RunFlag then
begin
btnRun.ImageIndex := 5;
btnRun.Caption := '啟動中..';
end
else
begin
btnRun.ImageIndex := 6;
btnRun.Caption := '停止中..';
end;
end;[/delphi]
經過SAM的建議,優化之後變成了
[delphi]procedure TForm1.actCheckStatusExecute(Sender: TObject);
function iif(lFlag: boolean; var1, var2: variant): variant;
begin
if lFlag then
Result := var1
else
Result := var2;
end;

begin
btnRun.ImageIndex := iif(RunFlag, 5, 6);
btnRun.Caption := iif(RunFlag, '啟動中..', '停止中..');
end;[/delphi]
老師建議的方式是
[delphi]procedure TForm1.actCheckStatusExecute(Sender: TObject);
const
ButtonCaption:array[Boolean] of string = ('關閉','啟動');
ButtonImage:array[Boolean] of ShortInt = (5,6);
begin
btnRun.ImageIndex := ButtonImage[RunFlag];
btnRun.Caption := ButtonCaption[RunFlag];
end;[/delphi]

最後修改日:
作者:蔡 小翰

常見問題:

  1. 文章可以轉貼嗎?可以,不過請要註明出處並標示本站連結。
  2. 載點可以轉貼嗎?可以,歡迎隨意盜連,無須告知。
  3. 反盜版聲明:本站支持正版軟體,請勿討論破解版、快樂版、註冊碼、註冊機、序號...等違法主題。
  4. 檔案無法解壓縮或解壓縮時發生錯誤?請使用7-Zip解壓縮
  5. 更多細節請參閱使用條款及免責聲明


發表迴響

這個網站採用 Akismet 服務減少垃圾留言。進一步瞭解 Akismet 如何處理網站訪客的留言資料