Delphi 2009之TStringBuilder类[1]: Create

Delphi 2009之TStringBuilder类[1]: Create2012-02-15 cnblogs 万一unit Unit1;

interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;
type
 TForm1 = class（TForm）
  Button1: TButton;
  Button2: TButton;
  procedure Button1Click（Sender: TObject）;
  procedure Button2Click（Sender: TObject）;
 end;

var

 Form1: TForm1;
implementation
{$R *.dfm}

//TStringBuilder.Create 可以无参数

procedure TForm1.Button1Click（Sender: TObject）;
var
 sb: TStringBuilder;
begin
 sb := TStringBuilder.Create;
 sb.Append（"Embarcadero"）;
 sb.Append（" CodeGear"）;
 sb.Append（" Delphi"）;
 sb.Append（" 2009"）;
 ShowMessage（sb.ToString）; {Embarcadero CodeGear Delphi 2009}
 sb.Free;
end;

//TStringBuilder.Create 可用字符串初始化; 其他重载用处不大

procedure TForm1.Button2Click（Sender: TObject）;
var
 sb: TStringBuilder;
begin
 sb := TStringBuilder.Create（"Delphi "）;
 sb.Append（2009）;
 ShowMessage（sb.ToString）; {Delphi 2009}
 sb.Free;
end;

end.