1

当我在 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下没有问题。

怎么了?

4

0 回答 0