132 SplitBySpace(id, s);

   132 SplitBySpace(id, s);

   133 if s[1]='"' then Delete(s, 1, 1);

   133 if s[1]='"' then Delete(s, 1, 1);

   134 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1);

   134 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1);

   135 b:= KeyNameToCode(id);

   135 b:= KeyNameToCode(id);

   136 if b = 0 then OutError(errmsgUnknownVariable + ' "' + id + '"')

   136 if b = 0 then OutError(errmsgUnknownVariable + ' "' + id + '"')

   138 end;

   138 end;

   139 

   139 

   140 procedure chLeft_p(var s: shortstring);

   140 procedure chLeft_p(var s: shortstring);

   141 begin

   141 begin

   142 if CheckNoTeamOrHH then exit;

   142 if CheckNoTeamOrHH then exit;