Delphi ActiveX

StringTable SplitAndAppend Example

Demonstrates the StringTable SplitAndAppend 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
strTab: TChilkatStringTable;
s: WideString;
i: Integer;
numStrings: Integer;

begin
strTab := TChilkatStringTable.Create(Self);

// SplitAndAppend make it easy to break apart comma delimited, semicolon delimited,
// or strings delimited by other characters.
s := 'abc,123,xyz,456,music,math,"World History","Chicago,Cubs",Japan';

strTab.SplitAndAppend(s,',',1,1);

i := 0;
numStrings := strTab.Count;
while i < numStrings do
  begin
    Memo1.Lines.Add(IntToStr(i) + ': ' + strTab.StringAt(i));
    i := i + 1;
  end;

// The output is: 
// 0: abc
// 1: 123
// 2: xyz
// 3: 456
// 4: music
// 5: math
// 6: "World History"
// 7: "Chicago,Cubs"
// 8: Japan

// Note: Keeping the quotes is intentional.
end;