Delphi ActiveX

StringBuilder GetNth

Demonstrates the GetNth 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;
delimiterChar: WideString;
exceptDoubleQuoted: Integer;
exceptEscaped: Integer;

begin
// The GetNth method is handy for getting parts from delimited strings.
// For example:

sb := TChilkatStringBuilder.Create(Self);
sb.Append('red,blue,"green,purple",,yellow');

delimiterChar := ',';
exceptDoubleQuoted := 1;
exceptEscaped := 1;

// Prints "[red]"
Memo1.Lines.Add('[' + sb.GetNth(0,delimiterChar,exceptDoubleQuoted,exceptEscaped) + ']');

// Prints "[blue]"
Memo1.Lines.Add('[' + sb.GetNth(1,delimiterChar,exceptDoubleQuoted,exceptEscaped) + ']');

// Prints "[green,purple]"
Memo1.Lines.Add('[' + sb.GetNth(2,delimiterChar,exceptDoubleQuoted,exceptEscaped) + ']');

// Prints "[]"
Memo1.Lines.Add('[' + sb.GetNth(3,delimiterChar,exceptDoubleQuoted,exceptEscaped) + ']');

// Prints "[yellow]"
Memo1.Lines.Add('[' + sb.GetNth(4,delimiterChar,exceptDoubleQuoted,exceptEscaped) + ']');

// Prints "[]"
Memo1.Lines.Add('[' + sb.GetNth(5,delimiterChar,exceptDoubleQuoted,exceptEscaped) + ']');
end;