delphi TStringBuilder 用法

procedure TForm2.Button2Click(Sender: TObject);
var
  sb: TStringBuilder;
begin
  sb := TStringBuilder.Create;
  try
    sb.Append('wokao123');

    Memo1.Lines.Add(sb[0]); //w
    Memo1.Lines.Add(sb[1]); //o 可见 sb是从0开始的

    Memo1.Lines.Add(sb.Length.ToString); // 8

    sb.Append(sLineBreak); //拼接上空格换行

    Memo1.Lines.Add(sb.Length.ToString); // 10，可见 sLineBreak是2个字符

    sb.Remove(sb.Length - 2, 2); //去除尾部的 回车换行

    Memo1.Lines.Add(sb.Length.ToString); //8
  finally
    sb.Free;
  end;

end;