Delphi 2009 之 TStringBuilder 类[4]: Insert 与 Remove
2008-08-13 13:53
381 查看
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} //TStringBuilder 的插入与删除 procedure TForm1.Button1Click(Sender: TObject); var sb: TStringBuilder; begin sb := TStringBuilder.Create; sb.Append('CodeGear 2007'); sb.Insert(Length('CodeGear '), 'Delphi '); ShowMessage(sb.ToString); {CodeGear Delphi 2007} sb.Remove(Length('CodeGear Delphi'), Length(' 2007')); ShowMessage(sb.ToString); {CodeGear Delphi} sb.Insert(sb.Length, ' 2009'); ShowMessage(sb.ToString); {CodeGear Delphi 2009} sb.Free; end; end.
相关文章推荐
- Delphi 2009 之 TStringBuilder 类[4]: Insert 与 Remove
- Delphi 2009 之 TStringBuilder 类[1]: Create
- Delphi 2009 之 TStringBuilder 类[1]: Create
- Delphi 2009 之 TStringBuilder 类[2]: Append 与 AppendFormat
- Delphi 2009 之 TStringBuilder 类[3]: Replace
- Delphi 2009 之 TStringBuilder 类[2]: Append 与 AppendFormat
- Delphi 2009 之 TStringBuilder 类[3]: Replace
- Delphi 2009 之 TStringBuilder 类[5]: Chars[] 属性与 CopyTo 方法
- Delphi 2009 之 TStringBuilder 类[5]: Chars[] 属性与 CopyTo 方法
- Delphi 2009 之 TStringBuilder 类[6]: Equals
- Delphi 2009 之 TStringBuilder 类[7]: ToString
- Delphi 2009 之 TStringBuilder 类[6]: Equals
- Delphi 2009 之 TStringBuilder 类[7]: ToString
- 解决 Delphi XE (2010,2009) 里的UTF8乱码问题!
- Delphi2009控件的安装
- Delphi2009的两个包
- Delphi线程池(Delphi2009以上版本适用)
- 三、Delphi 2009 泛型容器单元(Generics.Collections)[2]: TQueue<T>
- 十二、详测 Generics Collections TList (3): Insert、Delete、Remove、Extract
- Delphi 2009 新增单元 Character[2]: IsLetter、IsUpper、IsLower、IsDigit、IsNumber