Delphi DLL

StringBuilder GetAfterBetween

Demonstrates the GetAfterBetween method. Delphi 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;
searchAfter: PWideChar;
companyName: PWideChar;

begin
sb := CkStringBuilder_Create();
CkStringBuilder_Append(sb,'<abc><person><name>Joe</name></person><company><name>Chilkat Software</name></company></abc>');

// The GetAfterBetween method gets the substring between two arbitrary marker strings, and doesn't
// start searching until the searchAfter string is passed.

// For example, to get the company name in the string above...
searchAfter := '<company>';
companyName := CkStringBuilder__getAfterBetween(sb,searchAfter,'<name>','</name>');
Memo1.Lines.Add('Company Name = ' + companyName);

CkStringBuilder_Dispose(sb);

end;