var i:integer; begin for i:=1 to 5 do showmessage('00'+inttostr(i)); end;
那你就判断一下被 var i:integer; begin for i:=1 to 100 do begin Case Length(IntToStr(i)) of 1: showmessage('00'+inttoStr(i)); 2:showmessage('0'+inttoStr(i)); 3:showmessage(inttoStr(i)); end; end; end;
begin
for i:=1 to 5 do
showmessage('00'+inttostr(i));
end;
var i:integer;
begin
for i:=1 to 100 do
begin
Case Length(IntToStr(i)) of
1: showmessage('00'+inttoStr(i));
2:showmessage('0'+inttoStr(i));
3:showmessage(inttoStr(i));
end;
end;
end;