如何伸縮程式碼呢?

發文回覆瀏覽次數：1485

推到 Plurk!

推到 Facebook!

尚未結案

hotswin
中階會員

發表：72
回覆：92
積分：52
註冊：2003-11-06

發送簡訊給我

#1 引用回覆回覆

發表時間：2004-12-22 18:31:46

IP:220.134.xxx.xxx 未訂閱

比如說要將下列的code

    if Copy(st1,1,5)='8D 00' then begin
    st2:= copy(st2,17,Length(st2)-16);
    if Pos(ac1.tradeName,get_Name(st2))>0 then begin
    Memo_Chat.Lines.Add(get_Name(st2));
    MediaPlayer1.FileName := '1.wav' ;
    MediaPlayer1.Open ;
    MediaPlayer1.Play ;
    end;
    end;

要改成層次分明的:

    if Copy(st1,1,5)='8D 00' then begin
       st2:= copy(st2,17,Length(st2)-16);
        if Pos(ac1.tradeName,get_Name(st2))>0 then begin
          Memo_Chat.Lines.Add(get_Name(st2));
          MediaPlayer1.FileName := '1.wav' ;
          MediaPlayer1.Open ;
          MediaPlayer1.Play ;
        end;
    end;

------------------------ 不知要用何種指令呢?一直找不到，VB就粉方便說發表人 - hotswin 於 2004/12/22 19:48:52

------
xinjier禮品贈品

dllee
站務副站長

發表：321
回覆：2519
積分：1711
註冊：2002-04-15

發送簡訊給我

#2 引用回覆回覆

發表時間：2004-12-22 19:36:15

IP:211.76.xxx.xxx 未訂閱

試試 elvis1000 介紹的 Delphi Formatter Expert （Freeware） http://www.dow.wau.nl/aew/DelForExp.html 應該可以滿足您的需求。參考:【問題】如何用ShadowStar CodeFast去整理程式碼? http://delphi.ktop.com.tw/topic.php?topic_id=61601 另外，如果您要貼程式碼，請用 [code] // BCB, Delphi 的程式碼 [/code] 這樣才會有縮排的效果。吃軟也吃硬 dllee.ktop.com.tw StatPlus 系統資源監測器 @ KTOP VMASK - ViewMove Automation Software Kernel 發表人 - dllee 於 2004/12/22 19:39:15

------
http://www.ViewMove.com

系統時間：2024-06-29 16:49:17

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！