CaretPos是不是可以鎖定在MEMO中的TEXT的位址 因為我想做一個文書編輯器的程式可以，啟動時 可以自動鎖定「文字區塊」中我想要的的位置。 verilog cpu DESIGN

------
verilog
cpu DESIGN

不, CaretPos 屬性是唯讀的 想要決定游標所在位置, 須用 SelStart 這個 method

在請問一下，是不是用MEMO.LINES的屬性來決定『哪一列』 再由SelStart來決定列中的哪一個位置呢？？？ 因為我想做一個EDITER，所以想多瞭解一下MEMO的用法。 verilog cpu DESIGN

------
verilog
cpu DESIGN

TextLen:=Assem.GetTextLen; Assem.SelStart:=TextLen; 用GetTextLen的方法去取整篇文字的字串長度，最後再用SelStart去 設定游標的起始位置即可取到，文字的最後一行。 同理，只要知道位址是多少（Integer）就可以定位游標了... DELPHI6.0的範例是用搜尋字串做例子... verilog cpu DESIGN

------
verilog
cpu DESIGN

引言: 在請問一下，是不是用MEMO.LINES的屬性來決定『哪一列』 再由SelStart來決定列中的哪一個位置呢？？？ 因為我想做一個EDITER，所以想多瞭解一下MEMO的用法。

做EDITOR用MEMO可能不好喔! 會有64k限制! ～～～Delphi K.Top討論區站長～～～

我主要是想實作一個很酷的的功能「程式碼折疊」 例如： function example (arg1,arg2) begin .......... ..........//程式碼 .......... end; 可以變成 + function example (arg1,arg2) 一列彩色的文字 這樣有個好處，都我在寫OOP程式語言的話，一組程式碼就是一個有顏色BLOCK 可以方便我去分析程式的流程。甚至可以打開與折疊，所以我的程式折起來的話 只有三行function 的title，按+號打開的話就是裡面的code。這是我在一套 IC設計軟體ACTIVE HDL看到的。很方便寫CODE喔...    www.aldec.com 如果大家對verilog有興趣的話可以找我聊天喔... verilog cpu DESIGN

------
verilog
cpu DESIGN

引言: 我主要是想實作一個很酷的的功能「程式碼折疊」 例如： function example (arg1,arg2) begin .......... ..........//程式碼 .......... end; 可以變成 function example (arg1,arg2) 一列彩色的文字 這樣有個好處，都我在寫OOP程式語言的話，一組程式碼就是一個有顏色BLOCK 可以方便我去分析程式的流程。甚至可以打開與折疊，所以我的程式折起來的話 只有三行function 的title，按 號打開的話就是裡面的code。這是我在一套 IC設計軟體ACTIVE HDL看到的。很方便寫CODE喔... www.aldec.com 如果大家對verilog有興趣的話可以找我聊天喔... verilog cpu DESIGN

不錯的構想,建議Borland加上此功能! 哈哈! ～～～Delphi K.Top討論區站長～～～

稛?鋒?衄?恅梒?侔斕腔?觳 http://www.pconline.com.cn/pcedu/empolder/gj/delphi/10201/28071.html Delphi笢衄諷璃MEMOㄛ絞妏蚚茼諷璃怀⻌囀⺍麼晤憮奀ㄛ⺼睡隅嫖梓絞ゴ腔弇离儸ˋ涴奀憩褫眕覃蚚Windows API滲杅笢腔EM_LINEFROMCHAR睿EM_LINEINDEX秏洘懂隅MEMO諷璃笢嫖梓腔絞ゴ俴睿蹈ㄛ撿极覃蚚源楊腔徹最⺼狟ㄩ procedure TForm1.Button1Click(Sender: TObject); var LineNum:longint; CharsBeforeLine:longint; begin LineNum := SendMessage(Memo1.Handle,EM_LINEFROMCHAR, Memo1.SelStart,0); CharsBeforeLine:=SendMessage(Memo1.Handle,EM_LINEINDEX, LineNum,0); Label1.Caption:='Line: ' IntToStr(LineNum 1); Label2.Caption:='Position: ' IntToStr((Memo1.SelStart - CharsBeforeLine) 1); end;

Memo1->CaretPos.y , Memo1->CaretPos.x 有 bug , 會有負值出現 .... 故求 MEMO 的座標最好用的方法,就是樓上長官介紹的方法 int begin_position=1; //座標開始位置 int y=SendMessage(Memo1->Handle,EM_LINEFROMCHAR,Memo1->SelStart,0); int x=Memo1->SelStart - SendMessage(Memo1->Handle,EM_LINEINDEX,y,0); Label1->Caption="Line:" IntToStr(y begin_position) " Col:" IntToStr(x);