Delphi DLL

Load StringTable from a StringBuilder

Demonstrates how to load a StringTable from the text contained in a Chilkat StringBuilder object. Delphi DLL

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, StringBuilder, StringTable;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
strTab: HCkStringTable;
sb: HCkStringBuilder;
i: Integer;
numStrings: Integer;

begin
success := False;

strTab := CkStringTable_Create();
sb := CkStringBuilder_Create();

CkStringBuilder_Append(sb,'This is line 1' + #13#10);
CkStringBuilder_Append(sb,'An empty line follows...' + #13#10);
CkStringBuilder_Append(sb,#13#10);
CkStringBuilder_Append(sb,'This is line 4' + #13#10);

CkStringTable_AppendFromSb(strTab,sb);

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

CkStringTable_Dispose(strTab);
CkStringBuilder_Dispose(sb);

end;