Delphi ActiveX

StringBuilder GetAfterFinal

Demonstrates the StringBuilder.GetAfterFinal method.

The GetBefore method was added in Chilkat v9.5.0.77

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
success: Integer;
sb: TChilkatStringBuilder;
removeFlag: Integer;
marker: WideString;
substr: WideString;

begin
success := 0;

sb := TChilkatStringBuilder.Create(Self);
success := sb.Append('111--222--333--444');

// The GetAfterFinal method returns the contents of the string after the final occurrence of
// the marker string.  If the remove flag is 1, then both the returned string AND
// the marker are removed.

// If the marker is not found, then the entire string is returned and the sb is cleared.
removeFlag := 1;
marker := '--';

while (sb.Length > 0) do
  begin
    substr := sb.GetAfterFinal(marker,removeFlag);
    Memo1.Lines.Add('substr = ' + substr + ', sb contains: ' + sb.GetAsString());
  end;

// Output:
// substr = 444, sb contains: 111--222--333
// substr = 333, sb contains: 111--222
// substr = 222, sb contains: 111
// substr = 111, sb contains: 
// 
end;