Function AddZeroStr(inString:String;StrLen:Integer):String; //字符串前加'0'
var i:Integer;
myString:String;
begin
myString:=inString;
for i:=1 to StrLen do
Insert('0',myString,1);
myString:=Copy(myString,Length(myString)-(StrLen-1),StrLen);
AddZeroStr:=myString;
end;
str:=AddZeroStr('10001',9);
for i:=10 to 1
do
begin
end
这样写对么？？？
应为：
for i:=10 downto 1 do
begin
end
（1）通常用于删除程序：如TStringGrid组件的数据某一行的数据删除
或创建TDBGrid的标题时后的删除等等
（2）VB中有步长的概念 （Step概念）您也应注意
