每次執行完下面指令，memo都顯示最下方的文字，即捲軸在最下方，我想顯示都在最上方要如何來做，還有讀資料庫的資料最後一行都會多一行空白行，不知為何，還有要如何消除它。 <textarea class="delphi" rows="10" cols="60" name="code"> memo1.Clear; if ADOQuery1.RecordCount > 0 then begin while not ADOQuery1.Eof do begin memo1.Lines.add(ADOQuery1.Fields[0].asstring ' ' g_saMsg[22] ADOQuery1.Fields[1].asstring ' MB'); ADOQuery1.Next; end; end; </textarea>

memo的問題，服用keyword : "Memo", "Perform"

DB最後一筆空白是EOF，通常元件上的最後一筆都是拿來作新增用

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

Memo1.Perform(EM_LINESCROLL,0 ,-1);
加了就可以了，謝拉~

迴圈外

類似這樣

S := Memo1.Lines.Text;
if Copy(S,Length(S)-1,2)=#13#10 then
begin
System.Delete(S,Length(S)-1,2);
Memo1.Lines.Text := S;
end;
SendMessage(Memo1.Handle,WM_VSCROLL,SB_TOP,0);