unit hiSwitchingPages;

interface

uses Kol,Share,Debug;

type
  THISwitchingPages = class(TDebug)
  private
    FOutCount:byte;
    FList:PStrList;
    procedure SetCount(Value: Word);
    procedure SetText(const Value:string);
    private
    FIndex:integer;
    FString:string;
    _data_str:THI_Event;
    public
    onPart:array of THI_Event;
    constructor Create;
    destructor Destroy; override;
    procedure _work_doGetString(var _Data: TData; Index: Word);
    property _prop_Count: Word write SetCount;
    property _prop_Strings:string write SetText;  

  end;

implementation

uses hiStr_Enum;

constructor THISwitchingPages.Create;
begin
  inherited;
  FList := NewStrList;
end;

destructor THISwitchingPages.Destroy;
begin
  FList.free;
  inherited;
end;

procedure THISwitchingPages.SetCount;
begin
  SetLength(onPart, Value);
  FOutCount := Value;
end;

procedure THISwitchingPages.SetText;
begin
   FList.Text := Value;
end;

procedure THISwitchingPages._work_doGetString;
var
  i: integer;
  ii: Char;
begin
   FString := FList.Items[ReadInteger(_Data,_data_str)]; 
   FIndex :=  FList.IndexOf(FString);
  ii := ';';
  {$ifdef _PROTECT_MAX_}
  if (FString = '') then exit;
  {$endif}
  if (pos(ii, FString) = 0) then exit;
  for i := 0 to FOutCount - 1 do
  _hi_onEvent(onPart[i], str2int(fparse(FString, ii)));
end;

end.