如何使Memo中的文本换行？？？？？

Question

Memo中的文本是从数据库中导出来的，是一个大文本字段。
我想要文本中有句号时就自动换行........
各位高手，要怎样做才可以???

Answer 1

这个只能自己写代码了，TStringList *s;
  s = new TStringList(NULL);
  s->LoadFromFile('1.txt');
  s->Delimiter = "。";
  s->DelimitedText ;
  for (int i=0;i<Memo1->Lines->Count-1;i++)
    {
       Memo1->Lines->Add(s[i]);
    }
  delete s;

Answer 2

Memo1.Text:=stringreplace(Memo1.Text,'。','。'+#13,[rfReplaceAll]);

Answer 3

好像没反应，我的代码是这样的：
procedure TTEva.ComboBox1Change(Sender: TObject);
var
m:string;
begin
  with DM.T_Query1 do
  begin
    close;
    sql.Clear;
    sql.Add('select T_EVALUATION1 as ta from teacher where T_ID=:a');
    ParamByName('a').Value:=Trim(ComboBox1.Text);
    open;
  end;
   m:=Trim(DM.T_Query1.FieldByName('ta').Value) ;
   Memo1.Text:=stringreplace(m,'。','。'+#13,[rfReplaceAll]);
end;要怎么改阿？？？？

Answer 4

已解决，
Memo1.Text:=stringreplace(m,'。','。'+#13#10,[rfReplaceAll]);
这样就可以了。