#pas
function THIRE_Search._Get(Var Item:TData; var Val:TData):boolean;
var idx:integer;
    mt:PMT;
begin
  idx := ToIntIndex(Item);
  if (idx >= 0) and (idx <= RE.SubExprMatchCount) then
  begin
    FreeData(@Val);
    dtString(Val, RE.Match[idx]);
    mt := mt_make(Val);
    mt_int(mt, RE.MatchPos[idx]);
    mt_int(mt, RE.MatchLen[idx]);
    dispose(mt);
    Result := true;
  end else Result := false;
end;