怎样产生连续的001到099等数字？(20分)

怎样产生连续的001到099等数字？

用循环！
能把你的要求说明白吗？

什么意思，是否希望数字前面补0

就是产生从：001、002、到099的数字，

procedure TForm1.Button1Click(Sender: TObject);
function PadString(nLength: Integer; Str, PadStr: string): string;
var
i: Integer;
tmpPad: string;
begin
result := Str;
if Length(Str) < nLength then begin
tmpPad := '';
for i := 0 to nLength - Length(Str) - 1 do
tmpPad := tmpPad + PadStr;
result := tmpPad + Str;
end;
end;
var
i: Integer;
begin
ListBox1.Clear;
for i:=1 to 99 do begin
ListBox1.Items.Add(PadString(3,IntToStr(i),'0'));
end;
end;

接受答案了.