(Delphi DLL) StringBuilder GetAfterFinal

Demonstrates the StringBuilder.GetAfterFinal method.

The GetBefore method was added in Chilkat v9.5.0.77

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;
success: Boolean;
removeFlag: Boolean;
marker: PWideChar;
substr: PWideChar;

begin
sb := CkStringBuilder_Create();
success := CkStringBuilder_Append(sb,'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 True, 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 := True;
marker := '--';

while (CkStringBuilder_getLength(sb) > 0) do
  begin
    substr := CkStringBuilder__getAfterFinal(sb,marker,removeFlag);
    Memo1.Lines.Add('substr = ' + substr + ', sb contains: ' + CkStringBuilder__getAsString(sb));
  end;

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

CkStringBuilder_Dispose(sb);

end;