procedure TForm1.N8Click(Sender: TObject);
var
 mstr:TStringBuilder;
 A:array[0..100] of Char;
 xstr:String;
begin
  mstr:=TStringBuilder.Create('this is=================== hello');
  ShowMessage(mstr.ToString);
  mstr.Free;  xstr:='test array of char===========';
  A:=xstr.ToCharArray;//TocharArray不识别呢?我的是Delphi2010end;