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 / webtbf / uw2414.pp
Size: Mime:
{ Source provided for Free Pascal Bug Report 2414 }
{ Submitted by "Louis Jean-Richard" on  2003-03-10 }
{ e-mail: Ljean_richard@compuserve.com }
UNIT uw2414;
INTERFACE
TYPE
        anObj   =
                OBJECT
                        PROCEDURE A( CONST s : string );
                        k       : cardinal;
                        PRIVATE
                        PROCEDURE A( CONST s : string; n : word );
                END
                ;
IMPLEMENTATION
PROCEDURE anObj.A( CONST s : string; n : word );
BEGIN
        WriteLn(' ':n, s)
END
;
PROCEDURE anObj.A( CONST s : string );
BEGIN
        A(s, k)
END
;
END
.