问一个丢脸的问题!

Question

for i:=0 to 10 do
  begin
    if Str[i]='a' then
      begein
        这儿怎么跳出循环?
      end;
  end;

Answer 1

而不跳出程序噢!所以不能用Exit;

Answer 2

说了不能用Exit,一用就整个出去了,下面的程序还怎么执行

Answer 3

for i:=0 to 10 do
begin
  if Str[i]='a' then
  begin
    break;//跳出最内的一层循环，即调出for i:=0 to 10 do循环
  end;
end;

Answer 4

使用goto:
label _labela;
var
  str:string;
  i:integer;
begin
  str:='Please visit www.goomoo.net by the way.';
  for i:=0 to 10 do
  begin
    if Str[i]='a' then
      begin
        goto _labela;
      end;
  end;
  _labela: showMessage(intToStr(i));
end;
next:
  showMessage('已经跳出循环。')使用break:
for i:=0 to 10 do
  begin
    if Str[i]='a' then
      begein
        break;
      end;
  end;

Answer 5

使用goto:
label _labela;
var
  str:string;
  i:integer;
begin
  str:='Please visit www.goomoo.net by the way.';
  for i:=0 to 10 do
  begin
    if Str[i]='a' then
      begin
        goto _labela;
      end;
  end;
  _labela: showMessage(intToStr(i));
end;

Answer 6

for i:= 1 to 10 do