#pas
unit hiFTCG_Tools_8EACBA0;

interface

uses windows,kol,Share,hiFTCG_Tools_EM,ftcg_share;

type
  TClassFTCG_Tools_8EACBA0 = class(TFTCG_Tools_EM)
    private
      arr3:array[0..5] of integer;
      
      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_8EACBA0(Control:PControl):TFTCG_Tools_EM;

implementation

uses hiFTCG_Tools;

function Create_hiFTCG_Tools_8EACBA0;
begin
  Result := TClassFTCG_Tools_8EACBA0.Create(Control);
end;

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

destructor TClassFTCG_Tools_8EACBA0.Destroy;
begin
  inherited Destroy;
end;

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

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

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

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

procedure TClassFTCG_Tools_8EACBA0.event_doData(var Data:TData; index:word);
var
  _size2:integer;
  i5:integer;
begin
  
  _size2 := high(arr3) + 1;
  for i5 := 0 to _size2 do
  begin
    _hi_onEvent(THIFTCG_Tools(FParent).Events[0], arr3[i5]);
  end;
end;

end.