[fpc-devel] UTF8 RTL

Mattias Gaertner nc-gaertnma at netcologne.de
Mon Nov 24 15:08:44 CET 2014


On Sun, 23 Nov 2014 17:42:06 +0100 (CET)
marcov at stack.nl (Marco van de Voort) wrote:

>[...]
> And the 2-byte unicode version exists, in unit uuchar.  (the "objpas" of
> $mode delphiunicode).  For now, simply make a utf8 wrapper that returns an
> utf8string.

At the moment uuchar ParamStr only contains a typecast:

    if (Param=0) then
      Paramstr:=System.Paramstr(0)
    else if (Param>0) and (Param<argc) then
      paramstr:=UnicodeString(Argv[Param])
    else
      paramstr:='';


Unit LazUTF8 contains a procedure SetupCommandlineParametersWide, that
uses GetCommandLineW and creates an ArgW array, similar to the
Argv array.
Should I adapt that for uuchar?

Mattias



More information about the fpc-devel mailing list