Pascal Debian Jessie TryGetData无法正常运行

问题描述

当我在Debian Jessie的Pascal中尝试

 TStringObjectMap2 = class  
  private 
    type
    TStrObjMap = class(specialize TFpgmap<string,THostHandler>);
  private
    FObjects: TStrObjMap;
    FDefaultObject: THostHandler;
    FFreeObjects: boolean;

    function Getobject(const AKey: string): THostHandler;
    procedure SetDefault(AValue: THostHandler);
    procedure Setobject(const AKey: string; AValue: THostHandler);
  public
    constructor Create(FreeObjects: boolean);
    destructor Destroy; override;

    procedure RemoveHandler(const AKey: string);
    function TryGetobject(const AKey: string; out AObject: THostHandler): boolean;

    property DefaultObject: THostHandler read FDefaultObject write SetDefault;
    property Objects[const AKey: string]: THostHandler read Getobject write Setobject; default;

  end;   

线

Result := FObjects.TryGetData(AKey,AObject);  

无法编译

但是在Win 10下没有问题。

怎么了？

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）