我把 Tmemo 做記錄的輸出,
利用
Form1.Memo1.Lines.BeginUpdate;
Form1.Memo1.Lines.Add(msg);
Form1.Memo1.Lines.EndUpdate;

但剛加進的記錄無法使scrollbar 跟著往下捲動..

要怎麼做才能做到
1. scrollbar跟著捲動
2. 不要耗費太大量的cpu time

   Memo.SelStart := Length(Memo.Lines.Text);

你有爬文嗎

Hi

看似容易,一下子跳入回文,仔細想來,也並不是那麼容易!

問問使用BeginUpdate和EndUpdate用意是?

如果把這2個敍述拿掉,其實Memo的ScrollBar就會自已捲動.

procedure TForm1.Button1Click(Sender: TObject);
var
i:longint;
begin
for i:=0 to 100000 do
begin
// Memo1.Lines.BeginUpdate;
Memo1.Lines.Add(IntToStr(i));
Application.ProcessMessages;
// Memo1.SelStart:=Length(Memo1.Text)-10;
// Memo1.Lines.EndUpdate;
end;
end;

謝謝你提供的方式, 但沒有作用耶, 還是 Tmemo 有什麼屬性要設定的嗎? (我這邊環境是 D6)

請問你有試過這個方法嗎?

pedro 大說得沒錯,
因為是multi threading 的記錄都要輸出到 memo,
所以才用到 beginupdate, endupdate. (一般情況的卻srollbar 會跟著一直往下捲動)
所以是個 begin, end 造成memo的游標位置歸到原點囉..

在 multi threading 集中outpu記錄到一個memo 的情況,
pedro 大有什麼好建議可以做呢?
criticalsection (不用beginupdate, endupdate)?
只用 beginupdate endupdate?
還是有別的方式呢?

試看看這樣有沒有用?

procedure TForm1.Button1Click(Sender: TObject);
var
i:longint;
begin
for i:=0 to 100000 do
begin
Memo1.Lines.BeginUpdate;
Memo1.Lines.Add(IntToStr(i));
Memo1.Lines.EndUpdate;
Application.ProcessMessages;
SendMessage(Memo1.Handle, EM_SCROLLCARET, 0, 0);
end;
end;

編輯記錄

感謝pedro 大, 這方法可行.

另請教一個問題, 有人跟我一樣覺得memo這樣一行行加記錄進去,
它所耗的cpu time 還不算低嗎? 我是覺得事情看起來簡單, cpu time 卻不是很輕量的,
是因為可視化元件本生就比較操cpu 嗎?