unit Unit1;
{$mode ObjFPC}{$H+}
interface
const
CP_ACP = 0; // default to ANSI code page
CP_OEMCP = 1; // default to OEM (console) code page
CP_UTF16 = 1200; // utf-16
CP_UTF16BE = 1201; // unicodeFFFE
CP_UTF7 = 65000; // utf-7
CP_UTF8 = 65001; // utf-8
CP_ASCII = 20127; // us-ascii
CP_NONE = $FFFF; // rawbytestring encoding
procedure fpc_ansistr_assign2( var dests:pointer;s2:pointer); stdcall; compilerproc;
implementation
procedure fpc_ansistr_assign2(var dests: pointer; s2: pointer); stdcall; [public , alias: 'FPC_ANSISTR_ASSIGN2'];
begin
end;
procedure fpc_ansistr_assign2(var dests: pointer; s2: pointer); [ external name 'FPC_ANSISTR_ASSIGN2'];
procedure test_empty;
begin
end;
procedure test_short;
var
a: shortstring;
begin
a := '----';
writeln('short = ', a);
end;
end.