MEMO如果用貼上方式可以在任何位置插入內容.但如果lost focus后.用lines.add只能增加到后面..請問如何定位插入內容?例如MEMO有兩行: Line 1 Line 2 我用一個bottom按下去在第一行后插入 END.變成Line 1 END. 請問各位大大該如何實現?

引言: MEMO如果用貼上方式可以在任何位置插入內容.但如果lost focus后.用lines.add只能增加到后面..請問如何定位插入內容?例如MEMO有兩行: Line 1 Line 2 我用一個bottom按下去在第一行后插入 END.變成Line 1 END. 請問各位大大該如何實現?

wahz 你好: 試試看這樣寫行不行呢?? < class="code"> Memo1.Lines.Strings[0]:=Memo1.Lines.Strings[0]+' END.'; -- Enjoy Researching & Developing --

這樣只能在起始行最后add string.但如何在某一行某一位置插入string? 例如在第二行第三個字符后插入borland.

• 先找出你要插入位置的index(可以用#13找第幾行)，然後設定Memo1.SelStart將游標移至index
• 設定Memo1.SelText，例如：

  Memo1.SelStart:=2;
  Memo1.SelText:='borland';
  

var sTmp: string;
begin
  sTmp := Memo1.Lines[1];
  Insert('borland', sTmp, 4);
  Memo1.Lines[1] := sTmp;
end;

--- Everything I say is a lie.

很感謝各位大大的回復..我試試看 :)

Hagar大大的方法簡單明了應用起來也靈活...但我還是不知道如果取得光標是在第幾個字符...還是搞不懂 :p

暈...00156的方法更適合些..其實沒必要知道是第幾行第幾個字符..selstart定位在當前位置就可以了:)    真是太笨了

直接用API指令  SENDMESSAGE,用法自己查!!!!

------
~~~~~~~~時時多爬文 勿使惹塵埃~~~~~~~~
~~~~~~~~時時多爬文 勿使惹塵埃~~~~~~~~
~~~~~~~~時時多爬文 勿使惹塵埃~~~~~~~~

因為之前找不到:
如何在TMemo游標所在的位置插入新的字串,
並且能將游標重新停留在新字串後的位置上。
（How To Insert Text to TMemo and Put Cursor to New Position）.
網上找了一個下午，傍晚用delphi 寫一個完整的，希望對有需要的人有幫助。

[code delphi]
procedure Tform1.inserttext(str:string;amemo:Tmemo);
var
LineStr : string;
iLength , CPX,CPY: integer;
begin
with amemo do begin
// 取得原先的資訊
iLength := length(str);
CPX := caretpos.x;
CPY := caretpos.y;
LineStr := lines[CPY];
// 插入字串
insert(str, LineStr, CPX 1);
lines[CPY] := LineStr;
// 將游標停在最後(新)的位置
SelStart := Perform(EM_LINEINDEX,CPY,0) CPX iLength;
SetFocus;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
inserttext('要插入的字串',memo1);
end;[/code]

------
努力會更接近成功

編輯記錄