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 / test / tcpstr21a.pp
Size: Mime:
{ %fail}
program tcpstr21a;

{$APPTYPE CONSOLE}
{$IFDEF FPC}
  {$MODE DELPHIUNICODE}
{$ENDIF}

// Test that ansistring types has the same overload precedence when passing an UnicodeString constant

procedure TestStrConst(const S: AnsiString); overload;
begin
  halt(1);
end;
procedure TestStrConst(const S: UTF8String); overload;
begin
  halt(1);
end;
begin
  TestStrConst('Test');
end.