怎么在memo中删除所有的空格，回车，然后在句号后面加回车？

Question

注意是中文夹杂的哦，句号是中文的！
谢谢！

Answer 1

你先将Memo里的内容付给TStrings类型的变量.
随后使用replacestring语句替代......
最后再将TStrings类型的变量付给Memo
具体你可以参考那个类.

Answer 2

var
  lst: TStrings;
  i  : integer;
begin
  lst := TStringList.Create;
  lst.Assign(Memo1.Lines);
  for i := 0 to lst.Lines.Count - 1 do
  begin
    ReplaceString(lst.Lines[i],' ','',[rptALL...]);
    ReplaceString(lst.Lines[i],#13,'',[rptALL...]);
    ReplaceString(lst.Lines[i],'。','。'+#13,[rptALL...]);
  end;
  Memo1.Lines.Assign(lst);
  lst.Free;
end;

Answer 3

var
  s  : string;
begin
  s:=Memo1.Text;
  s:=StringReplace(s,' ','',[rfReplaceAll]);
  s:=StringReplace(s,#13,'',[rfReplaceAll]);
  s:=StringReplace(s,#10,'',[rfReplaceAll]);
  s:=StringReplace(s,'。','。'+#13,[rfReplaceAll]);
  Memo1.Text:=s;
end;