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;
最后修改：2022 年 12 月 05 日
© 允许规范转载
如果觉得我的文章对你有用，请随意赞赏