Delphi ActiveX

Implement Preprocessor #include with StringBuilder

Demonstrates how to implement #include with a Chilkat StringBuilder. 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
sbSrc: TChilkatStringBuilder;
filePath: WideString;
sbIncludeFile: TChilkatStringBuilder;

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

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

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

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

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

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

// Load the contents of the filePath
sbIncludeFile := TChilkatStringBuilder.Create(Self);
sbIncludeFile.LoadFile(filePath,'utf-8');

// Replace the first occurrence of #include <...> line with the contents of the include file.
sbSrc.ReplaceAllBetween('#include','>',sbIncludeFile.GetAsString(),1);

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

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