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:
|
Version:
3.0.0 ▾
|
program test_mix_string_types;
{$define fail1}
{$define fail2}
{$ifdef fail1}
{$H+}
{$endif}
uses sysutils
{$ifdef fail2}
,classes
{$endif}
;
{$ifndef fail2}
type TComponentName=string;
{$endif}
var
S1: TComponentName;
S2:string;
begin
if AnsiUpperCase(S1+'.'+S2)='' then ;
end.