读书人

continue有用吗?该怎么解决

发布时间: 2012-02-26 20:19:44 作者: rapoo

continue有用吗?
procedure TDemo33Form.btnStringClick(Sender: TObject);
var
S:String;
Ch:Char;
begin
S:= ' ';
for Ch:= 'a ' to 'z ' do
begin
if odd(ord(ch)) then continue;
S:=S+Ch; //连接一个字符到S
end;
lblOutput.Caption:= 'ASCII码

end;

end.

这里的continue我去掉不也行吗?
`



[解决办法]
continue就不执行循环下面的代码了的,直接开始下次循环的
if odd(ord(ch)) then continue;
S:=S+Ch; //连接一个字符到S
和if not odd(ord(ch)) then S:=S+Ch;
这两个等效的

读书人网 >.NET

热点推荐