(Delphi DLL) Implement Preprocessor #include with StringBuilder

Demonstrates how to implement #include with a Chilkat StringBuilder.

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
sbSrc: HCkStringBuilder;
filePath: PWideChar;
sbIncludeFile: HCkStringBuilder;

begin
// First build a string that has a preprocessor include
sbSrc := CkStringBuilder_Create();
CkStringBuilder_Append(sbSrc,'1' + #13#10 + '2' + #13#10 + '3' + #13#10);
CkStringBuilder_Append(sbSrc,'#include <qa_data/txt/helloWorld.txt>' + #13#10);
CkStringBuilder_Append(sbSrc,'4' + #13#10 + '5' + #13#10);

Memo1.Lines.Add(CkStringBuilder__getAsString(sbSrc));

// sbSrc contains:
// 	1
// 	2
// 	3
// 	#include <qa_data/txt/helloWorld.txt>
// 	4
// 	5

// The qa_data/txt/helloWorld.txt file contains "Hello World!"

filePath := CkStringBuilder__getAfterBetween(sbSrc,'#include','<','>');
if (CkStringBuilder_getLastMethodSuccess(sbSrc) <> True) then
  begin
    Memo1.Lines.Add('No #include''s found.');
    Exit;
  end;

Memo1.Lines.Add('filePath: ' + filePath);

// Load the contents of the filePath
sbIncludeFile := CkStringBuilder_Create();
CkStringBuilder_LoadFile(sbIncludeFile,filePath,'utf-8');

// Replace the first occurrence of #include <...> line with the contents of the include file.
CkStringBuilder_ReplaceAllBetween(sbSrc,'#include','>',CkStringBuilder__getAsString(sbIncludeFile),True);

Memo1.Lines.Add(CkStringBuilder__getAsString(sbSrc));

// sbSrce now contains:
// 	1
// 	2
// 	3
// 	Hello World!
// 	4
// 	5

CkStringBuilder_Dispose(sbSrc);
CkStringBuilder_Dispose(sbIncludeFile);

end;