Delphi字符串长度不够前面补0,该如何处理