TPascalScanner.SetCurMsg

protected procedure TPascalScanner.SetCurMsg(

  MsgType: TMessageType;

  MsgNumber: Integer;

  const Fmt: TPasScannerString;

  Args: array of Const

);

procedure TPascalScanner.SetCurMsg(

  MsgType: TMessageType;

  MsgNumber: Integer;

  const Msg: TPasScannerString

);