字符串按字数分段

Question

字符串str1,现在我要在这个字符串上插入回车，分成以10字符为一行的若干行。str1是变量。

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
  I: integer;
begin
  S := 'abcdefghij1234567890ABCDEFGHIJ@&*';
  I := 11;
  while I<Length(S) do begin
    Insert(#13, S, I);
    Inc(I, 11);
  end;
  Memo1.Lines.Text := S;
end;

Answer 2

楼上兄弟的为正解，也可写为函数，便于调用：
function AddCLF(srcString:String):String;
var
  S: string;
  I: integer;
begin
  S := srcString;
  I := 11;
  while I<Length(S) do begin
    Insert(#13, S, I);
    Inc(I, 11);
  end;
  result:=S;
end;

Answer 3

把S: string声明为:S: WideString;