ShowMessage(Length(‘Hello‘).ToString.PadLeft(4,‘0‘));
delphi xe 获取字符串长度（不足补位）
原文：https://www.cnblogs.com/redhat588/p/14355387.html
