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;//到文字最前

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