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;
这两个等效的