Delphi 2009之TStringBuilder类[2]: Append与AppendFormat

Delphi 2009之TStringBuilder类[2]: Append与AppendFormat2012-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;
  Button3: TButton;
  Button4: TButton;
  Button5: TButton;
  procedure Button1Click（Sender: TObject）;
  procedure Button2Click（Sender: TObject）;
  procedure Button3Click（Sender: TObject）;
  procedure Button4Click（Sender: TObject）;
  procedure Button5Click（Sender: TObject）;
 end;

var

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

//TStringBuilder.Append 可以添加几乎所有数据类型, 甚至是对象

procedure TForm1.Button1Click（Sender: TObject）;
var
 sb1,sb2: TStringBuilder;
 ver: Cardinal;
begin
 sb1 := TStringBuilder.Create;
 sb2 := TStringBuilder.Create;
 sb1.Append（"Delphi "）;
 ver := 2009;
 sb1.Append（ver）;
 ShowMessage（sb1.ToString）; {Delphi 2009}
 sb2.Append（sb1）;
 {换行}
 sb2.AppendLine;
 sb2.Append（Self）;
 ShowMessage（sb2.ToString）; {Delphi 2009
               TForm1}
 sb1.Free;
 sb2.Free;
end;