#pas
unit hiFTCG_Tools_8EA8BB0;

interface

uses windows,kol,Share,hiFTCG_Tools_EM,ftcg_share;

type
  TClassFTCG_Tools_8EA8BB0 = class(TFTCG_Tools_EM)
    private
      resultat1:real;
      
      function readData(index:word):TData;
      function readDataInt(index:word):integer;
      function readDataStr(index:word):string;
      function readDataReal(index:word):real;
    public
      
      constructor Create(_Control:PControl);
      destructor Destroy; override;
      procedure event_doData(var Data:TData; index:word);
  end;
  
  function Create_hiFTCG_Tools_8EA8BB0(Control:PControl):TFTCG_Tools_EM;

implementation

uses hiFTCG_Tools;

function Create_hiFTCG_Tools_8EA8BB0;
begin
  Result := TClassFTCG_Tools_8EA8BB0.Create(Control);
end;

constructor TClassFTCG_Tools_8EA8BB0.Create;
begin
  inherited Create(_Control);
  SetLength(doWork, 1);
  SetLength(getVar, 0);
  doWork[0] := event_doData;
end;

destructor TClassFTCG_Tools_8EA8BB0.Destroy;
begin
  inherited Destroy;
end;

function TClassFTCG_Tools_8EA8BB0.readData;
begin
  dtNull(Result);
  _ReadData(Result, THIFTCG_Tools(FParent).Datas[index]);
end;

function TClassFTCG_Tools_8EA8BB0.readDataInt;
var dt:TData;
begin
  dtNull(dt);
  _ReadData(dt, THIFTCG_Tools(FParent).Datas[index]);
  Result := ToInteger(dt);
end;

function TClassFTCG_Tools_8EA8BB0.readDataStr;
var dt:TData;
begin
  dtNull(dt);
  _ReadData(dt, THIFTCG_Tools(FParent).Datas[index]);
  Result := ToString(dt);
end;

function TClassFTCG_Tools_8EA8BB0.readDataReal;
var dt:TData;
begin
  dtNull(dt);
  _ReadData(dt, THIFTCG_Tools(FParent).Datas[index]);
  Result := ToReal(dt);
end;

procedure TClassFTCG_Tools_8EA8BB0.event_doData(var Data:TData; index:word);
begin
  resultat1 := 6 + 6; 
  _hi_onEvent(THIFTCG_Tools(FParent).Events[0],_doData(resultat1));
  
end;

end.