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.0.0 / tests / test / tthlp7.pp
Size: Mime:
{ Test that with $H+ and unicodestrings string constants are handled as
  UnicodeString }

program tthlp7;

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

uses
  uthlp;

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