zoukankan      html  css  js  c++  java
  • Delphi 2009 之 TStringBuilder 类[6]: Equals

    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.Equals 判断对象是否相同
    procedure TForm1.Button1Click(Sender: TObject);
    var
      sb1,sb2: TStringBuilder;
      b: Boolean;
    begin
      sb1 := TStringBuilder.Create('abc');
      sb2 := TStringBuilder.Create('abc');
    
      b := sb1.Equals(sb2);
      ShowMessage(BoolToStr(b, True)); {True}
    
      sb2.Length := 0;
      b := sb1.Equals(sb2);
      ShowMessage(BoolToStr(b, True)); {False}
    
      sb1.Free;
      sb2.Free;
    end;
    
    //此例中的 sb2 都没有产生新的对象, 只是指向了 sb1
    procedure TForm1.Button2Click(Sender: TObject);
    var
      sb1,sb2: TStringBuilder;
    begin
      sb1 := TStringBuilder.Create('abc');
    
      sb2 := sb1;
      sb1.Append('123');
      ShowMessage(sb2.ToString); {abc123}
    
      sb2 := sb1.Replace('123', ' 123');
      ShowMessage(sb1.ToString); {abc 123}
      ShowMessage(sb2.ToString); {abc 123}
    
      ShowMessage(BoolToStr(sb2.Equals(sb1), True)); {True}
    
      sb1.Free;
    end;
    
    end.
    
  • 相关阅读:
    x01.JavaHello
    x01.Weiqi.1 提子算法
    x01.Weiqi.3 网络对弈
    Cryptography
    Javascript判断中文字节
    asp.net mvc,asp.net4.0空间出售
    Sql Server中判断日志是否为一个星期
    DIV+CSS实现二级导航菜单
    ExecutorService线程池 [转]
    Android程序开发所用app图标的几种大小
  • 原文地址:https://www.cnblogs.com/del/p/1266920.html
Copyright © 2011-2022 走看看