(Delphi DLL) StringBuilder ReplaceBetween

Demonstrates the ReplaceBetween method.

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

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

begin
sb := CkStringBuilder_Create();
CkStringBuilder_Append(sb,'<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 := CkStringBuilder_ReplaceBetween(sb,'<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(CkStringBuilder__getAsString(sb));

CkStringBuilder_Dispose(sb);

end;