盒子论坛 v2.1

Var
  i, aLine, LineJ, lineK: Integer;
  tmpWideStr: WideString;
  tmpStr: String;
  aStrList: TStringList;

  Begin
    aStrList := TStringList.Create;
    aStrList.Text := Memo1.Lines.Text;
    aLine := aStrList.count;
    For i := aLine - 1 Downto 0 Do
    Begin
      tmpWideStr := Trim(aStrList.Strings[i]); //前后空格

      tmpStr := Trim(aStrList.Strings[i]); //前后空格
      tmpStr := StringReplace(tmpStr, '　', '', [rfReplaceAll]); //全角空格
      tmpStr := StringReplace(tmpStr, #9, '', [rfReplaceAll]); //TAB

      If tmpStr <> '' Then
      Begin
        For LineJ := 1 To Length(tmpWideStr) Do
        Begin //从前往后去空
          If (tmpWideStr[LineJ] <> '　' {全角空格})
          And (tmpWideStr[LineJ] <> #9 {TAB}) Then
          Begin

          For lineK := Length(tmpWideStr) Downto 1 Do
          Begin //从后往前去空
          If (tmpWideStr[LineJ] <> '　' {全角空格})
          And (tmpWideStr[LineJ] <> #9 {TAB}) Then
          Begin
          aStrList.Strings[i] := '    ' + Copy(tmpWideStr, LineJ, lineK - lineJ + 1);
          Break;
          End;
          End;
          Break;
          End;
        End;
      End
      Else
  {tmpWideStr = ''} aStrList.Delete(i);
    End;

    aLine := aStrList.count;
    For i := aLine - 1 Downto 1 Do
    Begin //每一段落加一空行以便阅读
      aStrList.Insert(i, '');
    End;
    Memo1.Lines.Text := aStrList.Text;
    Memo1.Repaint;
    aStrList.Free;

  End;
----------------------------------------------
http://www.cnblogs.com/tulater/

作者：

yy251745080 (今夕望月)	▲▲▲▲▲	-
	普通会员

2012/4/2 14:31:51

2楼：

这个是每一行都加2空格，每两句之间都加空行啊。
----------------------------------------------
-

作者：

carait (小诗魔)	★☆☆☆☆	-
	普通会员

2012/4/2 15:12:46

3楼：

十分感谢，正是我要的
----------------------------------------------
-

信息

登陆以后才能回复