在循环体用什么语句退出循环? 还有....
请看这段程序执行结果:
proceduce
begin
i:=0;
while strtodatetime('2002-12-16')+i<>date do
begin
i:=i+1;
if strtodatetime('2002-12-16')+i=strtodatetime('2003-1-16') then
begin
exit;
end;
end;
edit1.text:=inttostr(i);
end;
执行后出现怪现象Edit1.text:='Edit1';
理论上应该Edit1.text:='31'