program test_StrPLCopy;

{$mode objfpc}{$H+}

uses
   {$IFDEF UNIX}{$IFDEF UseCThreads}
   cthreads,
   {$ENDIF}{$ENDIF}
   Classes
   { you can add units after this };

function StrPLCopy(Dest: PChar; Source: string; MaxLen: SizeUInt): PChar;overload;
begin
  writeln('Ansi version');
end;

function StrPLCopy(Dest: PWideChar; const Source: UnicodeString; MaxLen: SizeInt): PWideChar; overload;
begin
  writeln('Unicode version');
end;

var
  p: pointer;
  s: string;

begin
  StrPLCopy(p, s, 10);
  readln;
end.

