如题: 整数123,长度是不固定的,也可能是1,12,1234
解决方案 »
- 一个窗体上有三个按钮,功能分别是正常模式、嵌入桌面和始终置前,请问如何实现??感激万分(本人15岁,想做桌面精灵)
- 一个关于COM+的小问题
- 为什么安装了DevExpress.ExpressQuantumGrid.Suite.v5.0.FS却找不到dxDBGrid控件?
- 在控件中声明枚举属性的时候出现问题,帮忙看看
- 在onkeydown事件里,如果输入值不符合有效性规则,则回退一格,清掉刚才的输入值,怎么写代码?
- 一个因扰我很长时间的问题,请各位大侠作答
- 我的DELPHI7安装后没有REPORT栏,是不是我买的这个版本有问题?
- 怎样实现带有checkbox的treeview?(200)
- 高手请进,紧急求解:如何得到一个指定IP的计算机的操作系统信息?《空》
- 在英文NT4中安装SQL SERVER7,在客户端输入汉字后显示为“?”,我的数据库字符集是默认安装
- 100分求教高手类类型强制转换(详情请进),在线等待!
- 如何显示标题?
begin
zz3:='1234';
zz:=length(zz3);
zz1:=' ';
for i:=1 to 12-zz do
zz1:=zz1+'0';
zz2:=zz1+zz3;
showmessage(zz2);
begin
str := '0' + str;
end;
DupeString
Returns the concatenation of a string with itself a specified number of repeats.UnitStrUtilsCategorystring handling routinesDelphi syntax:function DupeString(const AText: string; ACount: Integer): string;C++ syntax:extern PACKAGE AnsiString __fastcall DupeString(const AnsiString AText, int ACount);DescriptionDupeString returns a string containing ACount repeats of the string specified by AText. For example,S := DupeString('Ha', 5);sets S to the string 'HaHaHaHaHa'.
function MyFun(i:Integer):String;
begin
i:=1000000000000+i;
Result:=copy(IntToStr(i),2,12)
end;