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