var
S: string;
I: Integer;
Found: Boolean;
begin
S := 'Hello World';
Found := False;
I := Low (S);
while not Found and (I <= High(S)) do begin
if (S[I]) = 'o' then
Found := True;
Inc (I);
end;
声明：本站所有文章，如无特殊说明或标注，均为本站原创发布。任何个人或组织，在未征得本站同意时，禁止复制、盗用、采集、发布本站内容到任何网站、书籍等各类媒体平台。文章有大量来自于采集/转载/投稿的作品,若本站内容侵犯了原著者的合法权益，可联系我们进行处理。
回复后记得刷新页面(按F5)(没绑定邮箱的话无效)
