早期的 Delphi DecodeBase64 对于不是正常以 = 号结束的 Base64 编码内容进行解码时，结尾会解出乱码，造成程序运行时出问题，要解决这一问题，应对其进行补位，加上一定数量的 “=”，以解决此问题。需要补位的 “=” 个数的计算公式： n=（ mod 4） n=0 ：不需要补位 n>0：补