本文整理自网络,侵删。
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.
相关阅读 >>
Delphi dbgrideh 的分组统计 datagrouping
Delphi yesterday、today、tomorrow - 昨天、今天、明天
Delphi 2009 之 tcategorypanelgroup[1]: chevronalignment 等
Delphi2010新功能:tdirectory.getfiles 支持通配符
更多相关阅读请进入《Delphi》频道 >>