怎样才使edit中显示的数字为固定长度,以0开头,且每次自动加1?? 如自动生成固定长度为8位的以00000001开始的编号,以后递增。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 这个函数可以满足你的要求。function StrFillZero(Val, Len: Integer): string;var I: Integer;begin Result := IntToStr(Val); Val := Length(Result); if Val >= Len then Exit; for I := 1 to Len - Val do Result := '0' + Result;end;///caption := StrFillZero(233, 10); DELPHI DLL对象的引出 怎样 解压 zip 和 rar 文件,谢谢 dll接口调用问题 (100分求答案!)在WINDOWS(98、2000等)下如何获取打印机支持的所有纸张类型?望提供源码 为什么i初始值总是等于4365832? 求助:那里有delphi7在线注册机下载! delphi快捷键的问题 MDI 中的子窗口什么关闭不了 唉,為什么我看VCL中的一些較簡單的代碼,總是看不明,我該怎樣遂步看VCL中的代碼? delphi如何调用.bat文件, 还是nmftp的问题 打印圖片
var
I: Integer;
begin
Result := IntToStr(Val);
Val := Length(Result);
if Val >= Len then Exit;
for I := 1 to Len - Val do
Result := '0' + Result;
end;
///
caption := StrFillZero(233, 10);