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    
lazarus / usr / share / lazarus / 1.6 / components / codetools / examples / scanexamples / unusedunits1.pas
Size: Mime:
unit UnusedUnits1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils;

type

  { TMyClass }

  TMyClass = class(TComponent)
  public
    constructor Create(AOwner: TComponent); override;
  end;

implementation

{ TMyClass }

constructor TMyClass.Create(AOwner: TComponent);
var
  i: Integer;
begin
  inherited Create(AOwner);
  for i:=1 to 3 do begin
    WriteLn('TMyClass.Create ',i);
  end;
end;

end.