#pas
unit hiFTCG_Tools_8EABD30;

interface

uses windows,kol,Share,hiFTCG_Tools_EM,ftcg_share;

type
  TClassFTCG_Tools_8EABD30 = class(TFTCG_Tools_EM)
    private
      a2:integer;
      arr3:array of array 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_doValue(var Data:TData; index:word);
      procedure event_doClear(var Data:TData; index:word);
      procedure event_doRead(var Data:TData; index:word);
  end;
  
  function Create_hiFTCG_Tools_8EABD30(Control:PControl):TFTCG_Tools_EM;

implementation

uses hiFTCG_Tools;

function Create_hiFTCG_Tools_8EABD30;
begin
  Result := TClassFTCG_Tools_8EABD30.Create(Control);
end;

constructor TClassFTCG_Tools_8EABD30.Create;
begin
  inherited Create(_Control);
  SetLength(doWork, 3);
  SetLength(getVar, 0);
  doWork[0] := event_doValue;
  doWork[1] := event_doClear;
  doWork[2] := event_doRead;
end;

destructor TClassFTCG_Tools_8EABD30.Destroy;
begin
  inherited Destroy;
end;

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

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

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

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

procedure TClassFTCG_Tools_8EABD30.event_doValue(var Data:TData; index:word);
var
  a_size2:integer;
begin
  
  a_size2 := high(arr3) + 2;
  SetLength(arr3,a_size2,a_size2);
   dec (a_size2);
  arr3[a_size2,a_size2] := 4556;
end;

procedure TClassFTCG_Tools_8EABD30.event_doClear(var Data:TData; index:word);
begin
  
  arr3:= Nil;
end;

procedure TClassFTCG_Tools_8EABD30.event_doRead(var Data:TData; index:word);
begin
  
  a2 := arr3[0,0];
  _hi_onEvent(THIFTCG_Tools(FParent).Events[0]);
end;

end.