請問各位~

關於Memo顯示的一個關於的問題
如何讓Memo1.Lines.Text := Memo1.Lines.Text StrText增加文字時，
保持顯示在最後一行的位置，而不是顯示在最前一頁位置

procedure TMainForm.MyMemoAddText(StrText: string);
var

begin

Memo1.Lines.Text := Memo1.Lines.Text StrText
// 現在的Memo1 一直顯示在最前一頁
// 請問如何讓Memo1顯示最後一行的位置，可以看到新增的StrText文字

end;

謝謝~

Memo1.Lines.Text := Memo1.Lines.Text StrText;
Memo1.Lines.Add(#0); //這行不知在delphi中有用嗎? 試看看了

end;


===================引 用 文 章===================

請問各位~

關於Memo顯示的一個關於的問題
如何讓Memo1.Lines.Text := Memo1.Lines.Text StrText增加文字時，
保持顯示在最後一行的位置，而不是顯示在最前一頁位置

procedure TMainForm.MyMemoAddText(StrText: string);
var

begin

Memo1.Lines.Text := Memo1.Lines.Text StrText
// 現在的Memo1 一直顯示在最前一頁
// 請問如何讓Memo1顯示最後一行的位置，可以看到新增的StrText文字

end;

謝謝~

解决问题的关键，首先你要明白一点Memo中的Lines属性，

Lines属性是一个TStrings类型对象，

TStrings如何添加字符及对象，这个就不用我讲了。

單鍵 開/關 交替控制電路

加這一行Memo1.Lines.Add(#0); 可以讓顯示在最後一行，但會造成斷行問題。

例: 有一文字串 There are words test string#13#10，但需分多次加入Memo1.Lines.Text中


StrTex := 'There ar';
TMainForm.MyMemoAddText(StrTex);

StrTex := 'words for test-string' #13 #10;
TMainForm.MyMemoAddText(StrTex);

正確應該是:
There are words test string

但是會產生斷行問題:
There ar
words for test-string

因為換行是需由文字資料中的 #13 #10 自行換行
不知大大有何方法解決

Memo1.Lines.Text := Memo1.Lines.Text StrText;
Memo1.Perform(EM_LINESCROLL, 0, Memo1.Lines.Count);

end;

謝謝 aftcast 大大

這個方法可以了！！

===================引 用 文 章===================
下面應該是正統解了，我在bcb有試一下，應該ok

begin

Memo1.Lines.Text := Memo1.Lines.Text StrText;
Memo1.Perform(EM_LINESCROLL, 0, Memo1.Lines.Count);

end;