TOmniValue.CreateNamed does not handle single character string literals

[GoogleCodeExporter]

{$APPTYPE CONSOLE}

uses
  OtlCommon;

var
  Value: TOmniValue;

begin
  Value := TOmniValue.CreateNamed([
    string('a'), 42,
    string('b'), 666
  ]);
  Writeln(Value['a'].AsString);
  Writeln(Value['b'].AsString);
end.

I expect the output to be:

42
666

Instead an error is raised:

    TOmniValue.CreateNamed: invalid name type

The issue is that TOmniValue.CreateNamed fails to handle vtWideChar.  See 
http://stackoverflow.com/q/23995138

Original issue reported on code.google.com by david.h...@gmail.com on 2 Jun 2014 at 1:03

[GoogleCodeExporter]

Original comment by gabr42 on 17 Apr 2015 at 5:49

• Changed state: Fixed