KFF (Автор тем)

function  mapSemanticCodeDoubleValue(Obj : HObj; code, number: integer):double;
 {$IFNDEF LINUXAPI} stdcall {$ELSE} cdecl {$ENDIF}
external sGisAcces;

 TMapObjAcces = class(TMapComponent)
  public
    FObj:HObj;
    constructor Create(AOwner:TComponent); override;
    destructor  Destroy; override;
  end;

//++++++++++++++++++++++++++++++++++++++++++++++++++++
//++++++++++++++++++++++++++++++++++++++++++++++++++++
implementation

constructor TMapObjAcces.Create;
begin
  inherited Create(AOwner);
  FObj:=0;
end;

destructor TMapObjAcces.Destroy;
begin
   if FObj <> 0 then  mapFreeObject(FObj);
   FObj := 0;
   inherited Destroy;
end;