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 / webtbs / tw2706.pp
Size: Mime:
{ Source provided for Free Pascal Bug Report 2706 }
{ Submitted by "Johannes Berg" on  2003-10-01 }
{ e-mail: johannes -at- sipsolutions -dot- de }
program j;

{$mode delphi}

uses
  uw2706b, uw2706a;

type
  TClassB = class(TClassA)
  end;
  TClassC = class
    FB: TClassB;
    procedure Test;
  end;

procedure TClassC.Test;
var
  LX: TX;
begin
  FB.CT(LX);
end;

begin
end.