Format（）可以实现以空格补位，能否实现以指定的字符比如‘A’补位呢？或者有没有这样的函数呢？(20分)

format('%-8d',[12345])输出是：
'12345 '。
我想输出
‘12345AAA’
怎么实现？

看看這個自寫的函數:
//其中Len1為格式化長度,str為格式化字串,strkey為補充字符串
如:你上述需求可寫為:
gettext(8,'12345','A');返回的就是'1234AAA'.
function gettext(len1:integer;str,strkey:string):string;
var i:integer;
str1:string;
begin
str1:=str;
while length(str1)<len1do
begin
application.ProcessMessages;
str1:=str1+strkey;
end;
result:=str1;
end;

不知道你是不是固定的要输出8位字符？也就是不知道是不是[12345]这个数据是不是固定的
******
五位？如果不是的话，去掉格式字符串中的8。

接受答案了.