zoukankan      html  css  js  c++  java
  • Delphi2009之TStringBuilder类[3]:Replace

    Delphi 2009 之 TStringBuilder 类[3]: Replace

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

     

  • 相关阅读:
    node.js的request模块
    PHP实现一个简单url路由功能
    关于seajs
    CodeIgniter集成Smarty
    node.js批量修改图片名
    Node.js创建目录实例
    Bootstrap的表单设计器
    onbeforeunload事件被a链接触发的问题
    Socket.IO + Express实现的跨浏览器、子域的聊天室
    NodeJS获取命令行后面的参数
  • 原文地址:https://www.cnblogs.com/luckForever/p/7255185.html
Copyright © 2011-2022 走看看