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 / units / system / tpchlen.pp
Size: Mime:
procedure test(p: pchar; len: longint);
begin
  if (length(p)<>len) then
    halt(1);
end;

begin
  test(nil,0);
  test(#0,0);
  test('a',1);
  test('hello',5);
end.