Thank you for sharing.
Emmet engine for Delphi and Free Pascal (3.1+)
It compiles using 3.0.4 if
emmet.pas uses unit strutils:
uses
..
{$else}
SysUtils, Dialogs, Math,
strutils {for PosEx};
{$endif}
and adds an overload for
pos:
function Pos (const Substr, Source : String; Offset: SizeInt) : SizeInt; overload; inline;
begin
Result := PosEx(SubStr, Source, Offset);
end;
The hints about variables do "not seem to be initialized" need simple changes in function declarations to use
out instead of
var.
To compile the demo projects I had to delete the lpi and res files, and get them regenerated again on my version of Lazarus 2.0.0.