Блог

когда я пытаюсь использовать Pascal под Debian Jessie

  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 SetDefau<
    property Objects[const AKey: string]: THostHandler read GetObject write SetObject; default;

  end;   
  

строка

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

не удается скомпилировать

Но в версии Win 10 проблем нет.

Что происходит не так?