DELPHI XE5 FOR ANDROID 模仿驾考宝典 TMEMO 控件随着字数增多自动增高

在一个安卓需求中，需要模仿驾考宝典的详解部分。琢磨了好几天。终于搞定：

MemoAns.Height:=10;//MEMO控件赋初始高度值
MemoAns.Lines.Clear;
MemoAns.WordWrap:=true;//自动换行
MemoAns.Text:='详解:'+dm.FDQSQ.FieldByName('GANSER').AsString;//输入memo字串

MemoAns.GoToTextBegin;//到文字最前
MemoAns.GoToTextEnd;//到文字最后

 

//核心代码：利用滚动条溢出部分计算MEMO高度

MemoAns.Height:= MemoAns.Height+ MemoAns.ViewportPosition.Y+MemoAns.BoundsRect.Height;
MemoAns.Repaint;
MemoAns.GoToTextBegin;//到文字最前

 

缺点：文字中间不能有空行。