Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

bee / fpc-src deb

Repository URL to install this package:

Version: 
3.0.0  ▾
Details    
fpc-src / usr / share / fpcsrc / 3.0.0 / tests / webtbs / tw23204.pp
Size: Mime: 
program tw23204;

{$mode Delphi}{$H+}

uses
  uw23204;

var
  cur_p: TP;

function DropP:TPs;
begin
  result := [cur_p.AType];
end;


begin
  cur_p.AType:=pt_1;
  if DropP<>[pt_1] then
    halt(1);
end.

Products

About

Resources

Contact Gemfury