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.
    
  • 相关阅读:
    2015多校1006.First One
    2015多校.MZL's endless loop(欧拉回路的机智应用 || 构造)
    LUXURY 8
    矩阵快速幂模板
    博弈入门
    cf558c(bfs)
    LUXURY 7
    dfs序 + RMQ = LCA
    双端队列
    UVa-401 Palindromes
  • 原文地址:https://www.cnblogs.com/del/p/1266920.html
Copyright © 2011-2022 走看看