Delphi TJSONPairEnumerator.GetCurrent未扩展

时间:2015-11-12 09:25:44

标签: delphi delphi-xe5

我在Delphi XE5中构建项目后有提示:

uses
  System.Generics.Collections, Data.DBXJSON, System.IOUtils,
  System.SysUtils, System.Classes;
    ...
    var
    wzorKlucz: string;
    begin
     enum := wzor.GetEnumerator;

     while enum.MoveNext do
      ...
      wzorKlucz := enum.Current.JsonString.Value; //here
      ...

指的是:

addDevice

如何禁用此行的提示,或者我的内容不正确?

1 个答案:

答案 0 :(得分:1)

As hint says, Data.DBXPlatform is not in your uses list. Just add it there:

uses
  System.Generics.Collections, Data.DBXJSON, System.IOUtils,
  System.SysUtils, System.Classes, 
  Data.DBXPlatform;

This situation may occur if an inline function refers to a type in a unit that is not explicitly used by the function's unit. For example, this may happen if the function uses inherited to refer to methods inherited from a distant ancestor, and that ancestor's unit is not explicitly specified in the uses list of the function's unit.

If the inline function's code is to be expanded, then the unit that calls the function must explicitly use the unit where the ancestor type is exposed.

H2443 Inline function has not been expanded