从EXCEL中把备注导入delphi中的memo控件中，可是换行符没有了

Question

mmo1.Text := StringReplace(Trim(Excel.WorkSheets[1].Cells[2,2].value),Chr(18)+chr(13),Chr(10)+chr(13),[rfReplaceAll]);
mmo1.Text := Trim(Excel.WorkSheets[1].Cells[2,2].value); 这两句我都试了，都不行，换行符没有了，在memo中的一行显示了，能不能把换行符在memo中以回车显示。

Answer 1

Excel中的回车符是：Alt+chr(13)，如何转换成Delphi中的回车符？

Answer 2

用 memo1.lines.Text 而不是memo1.text

Answer 3

只用一句 memo1.lines.text:= Excel.WorkSheets[1].Cells[2,2].value; 就行了