分解字符串成换行：问：××答：××问：×× 显示出来自动换行,该如何解决

分解字符串成换行：问：××。答：××。问：××。 显示出来自动换行
我有一段字符串，从Oralce中的varchar2取得一字符串str:string。如下：
  问：你是谁？答：我叫娃哈哈。问：你从哪里来？答：江苏。问：你多大了？答：30。
   
  请问我把这段显示在memo中变成以下格式：
  问：你是谁？
  答：我叫娃哈哈。
  问：你从哪里来？
  答：江苏。
  问：你多大了？
  答：30。

  该如何做？

[解决办法]

Delphi(Pascal) code

uses StrUtils;function InsertCRLF(s: String): String;begin  s := AnsiReplaceStr(s, '问：', #13#10'问：');  s := AnsiReplaceStr(s, '答：', #13#10'答：');  if Copy(s, 1, 2) = #13#10 then    Result := Copy(s, 3, Length(s) - 2)  else    Result := s;end;procedure TForm1.Button1Click(Sender: TObject);begin  ShowMessage(InsertCRLF('问：你是谁？答：我叫娃哈哈。问：你从哪里来？答：江苏。问：你多大了？答：30。'));end;