Delphi ActiveX

StringBuilder ReplaceBetween

Demonstrates the ReplaceBetween method. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
sb: TChilkatStringBuilder;
numReplacements: Integer;

begin
sb := TChilkatStringBuilder.Create(Self);
sb.Append('<company><industry>Software</industry><name>Chilkat Software</name><abc>Abc Software</abc><name>Xyz Software</name></company>');

// The ReplaceBetween method restricts the replacements to only
// the parts that occur between two delimiter strings.

// For example:
numReplacements := sb.ReplaceBetween('<name>','</name>','Software','Technology');

// The number of replacements should be 2.
Memo1.Lines.Add('numReplacements = ' + IntToStr(numReplacements));

// The sb now contains:
// <company><industry>Software</industry><name>Chilkat Technology</name><abc>Abc Software</abc><name>Xyz Technology</name></company>
Memo1.Lines.Add(sb.GetAsString());
end;