简单算法问题 一个要输入四位编码的查询?当用户输入四位以下时自动在前面添“0”直到四位。该怎么写算法? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 uses strutils;edit1.text:=rightstr('0000' + edit1.text,4); aa:='12';while length(aa)=4 do aa:='0'+aa; rightStr在DELPHI六里才有,偶有的是DELPHI5 请教自己软件定制版和通用版如何更新的问题? 我用以下代码动态生成了N个窗口,如何得到每个窗口的句柄呢?谢谢 要怎么做可以使WAV的播放速度可以控制呢?? 高分求书 Delphi在Excel自动划出不连续区域的柱形图 如何将access数据表倒出成txt的格式,然后再恢复? 关于DBAdvStringGrid控件 关于QQ,怎么实现这个功能? 如何将一个TDBEdit控件里的数字赋给一个整形变量? stringlist的SaveToFile()出错了,我真菜 何以解忧?请大虾出手! 关于CPU的问题,高分求教
while length(aa)=4 do
aa:='0'+aa;