tok_val::tok_val(char* pp)
  {
      if (strlen(pp) <= 8) strncpy(v,pp,8); // короткая строка else p="pp;" // длинная строка }