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 / webtbs / tw2626.pp
Size: Mime:
{ Source provided for Free Pascal Bug Report 2626 }
{ Submitted by "Jose Santos" on  2003-08-10 }
{ e-mail: jcas@netcabo.pt }
program ShowBug(Input, Output);
{$MODE DELPHI}
type
  TBug = class
         public
            constructor Create; overload;
            constructor Create(var S: String); overload;
         end;

  constructor TBug.Create;
  begin
  end;

  constructor TBug.Create(var S: String);
  begin
    S:='Test';
  end;

var
  Bug: TBug;

begin
  Bug:=TBug.Create;
end.