Delphi 2009 之 TStringBuilder 类[3]: ｒｅｐｌａｃｅ

本文整理自网络，侵删。

 Delphi 2009 之 TStringBuilder 类[3]: Replaceunit 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;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure Button3Click(Sender: TObject);    procedure Button4Click(Sender: TObject);  end;
var  Form1: TForm1;
implementation
{$R *.dfm}
//TStringBuilder.ｒｅｐｌａｃｅ 替换字符串procedure TForm1.Button1Click(Sender: TObject);var  sb: TStringBuilder;begin  sb := TStringBuilder.Create;  sb.Append('从 Delphi 2007 到 Delphi 2009');
  sb.ｒｅｐｌａｃｅ('Delphi', 'CBuilder');  ShowMessage(sb.ToString);         {从 CBuilder 2007 到 CBuilder 2009}
  sb.Free;end;
//TStringBuilder.ｒｅｐｌａｃｅ 替换字符procedure TForm1.Button2Click(Sender: TObject);var  sb: TStringBuilder;begin  sb := TStringBuilder.Create;  sb.Append('从 Delphi 2007 到 Delphi 2009');
  sb.ｒｅｐｌａｃｅ('0', '9');  ShowMessage(sb.ToString);         {从 Delphi 2997 到 Delphi 2999}
  sb.Free;end;
//TStringBuilder.ｒｅｐｌａｃｅ 在指定范围内替换字符procedure TForm1.Button3Click(Sender: TObject);var  sb: TStringBuilder;begin  sb := TStringBuilder.Create;  sb.Append('ABABABABABAB');
  sb.ｒｅｐｌａｃｅ('A', '-', 4, 5);  ShowMessage(sb.ToString);    {ABAB-B-B-BAB}
  sb.Free;end;
//TStringBuilder.ｒｅｐｌａｃｅ 在指定范围内替换字符串procedure TForm1.Button4Click(Sender: TObject);var  sb: TStringBuilder;begin  sb := TStringBuilder.Create;  sb.Append('ABC123ABC123ABC123');
  sb.ｒｅｐｌａｃｅ('ABC', '-', 3, 12);  ShowMessage(sb.ToString);      {ABC123-123-123}
  sb.Free;end;
end. 

相关阅读 >>

Delphi二进制字符串转换成中文字符串

Delphi xe7中获得os平台和版本

Delphi winsock api写的邮件发送单元

Delphi 简单实习窗体靠边隐藏

Delphi fastreport快速安装教程

Delphi关闭程序close,application.terminate与halt区别

Delphi firemonkey处理图形的方式与vcl处理图形的方式大不相同

Delphi 获得每个进程的cpu使用率

Delphi 服务器与客户端的时间同步

Delphi idhttp post 支持 gzip 解压缩

更多相关阅读请进入《Delphi》频道 >>