Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.2.0 / tests / test / tthlp6.pp
Size: Mime:
{ Test that with $H+ string constants are handled as AnsiString }

program tthlp6;

{$mode objfpc}{$H+}
{$apptype console}

uses
  uthlp;

begin
  if 'Hello World'.Test <> 2 then
    Halt(1);
  Writeln('OK');
end.