libTextSuite/header/examples/fpc/example.lpr

program example;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, SysUtils, Forms, uMainForm, ulibTextSuite;

{$R *.res}

{$IFDEF DUMP_HEAPTRACE}
var
  heaptrcFile: String;
{$ENDIF}

begin
{$IFDEF DUMP_HEAPTRACE}
  heaptrcFile := ChangeFileExt(Application.ExeName, '.heaptrc');
  if (FileExists(heaptrcFile)) then
    DeleteFile(heaptrcFile);
  SetHeapTraceOutput(heaptrcFile);
{$ENDIF}

  RequireDerivedFormResource := True;
  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.Run;
end.