16,748
社区成员
发帖
与我相关
我的任务
分享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我去掉不也行吗?
`
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我去掉不也行吗?
`
...全文
请发表友善的回复…
发表回复
frjfanding123 2007-07-09
- 打赏
- 举报
总算有一个明白我的问题,谢谢大家
logne 2007-07-07
- 打赏
- 举报
continue就不执行循环下面的代码了的，直接开始下次循环的
if odd(ord(ch)) then continue;
S:=S+Ch; //连接一个字符到S
和if not odd(ord(ch)) then S:=S+Ch;
这两个等效的
if odd(ord(ch)) then continue;
S:=S+Ch; //连接一个字符到S
和if not odd(ord(ch)) then S:=S+Ch;
这两个等效的
frjfanding123 2007-07-07
- 打赏
- 举报
continue写和不写是不是没用?
zhao_yong 2007-07-07
- 打赏
- 举报
支持樓上
Harryfin 2007-07-03
- 打赏
- 举报
我试过楼主的程序没任何问题，虽然可以不用continue。
你应该是编译不通过吧？要留意看是报什么错，我发现你有一个end后面是全角分号....
你应该是编译不通过吧？要留意看是报什么错，我发现你有一个end后面是全角分号....
myy 2007-07-02
- 打赏
- 举报
复杂判断时，可以少些一些 else begin end ...
小呆之家 2007-07-02
- 打赏
- 举报
呵~~，我顶！
dingbaoguo 2007-07-02
- 打赏
- 举报
二楼,我支持你!!我顶!!!!
frjfanding123 2007-07-02
- 打赏
- 举报
ly_liuyang,你的意思是continue没有什么意思吗?
ly_liuyang 2007-07-01
- 打赏
- 举报
if not odd(ord(ch)) then S:=S+Ch;
