Путаница с break

@HanDi · Регистрация: 11.02.2012

Author24 — интернет-сервис помощи студентам

Delphi

if Form1.IdPOP31.Connected then
  begin
       MessageCount :=Form1.idPOP31.CheckMessages;
       Rez:=1;
 if (not Form1.sCheckbox1.checked) and (not Form1.sCheckbox2.checked) then sleep(0) else
   begin
 
  if MessageCount <> 0 then 
   begin
     for i:=Form1.IdPOP31.CheckMessages downto 1 do
       begin  
              Form1.IdPOP31.RetrieveHeader(i, Msg);
              S:=Msg.Headers.Values['From'];           
 
            if Form1.sCheckBox20.Checked then begin
               if Pos('123', (S))<>0
                 then
                  begin
                    Rez:=25;
                    Synchronize(Add);
                    Msg.Clear;
                    break;
                  end;
             end;
 
       end;
        // сюда? 
    end;
 end;
 end;

Следующая инструкция, которая будет выполнена это та, которая стоит после признака конца цикла.

При это break должен выйти из текущего цикла, куда он перескочит?

@Arkaniy · 19.05.2013, 14:12

Да, break выйдет туда, куда указано.

@Arkaniy 107 / 107 / 21 Регистрация: 29.08.2012 Сообщений: 453
	19.05.2013, 14:12	2
	Да, break выйдет туда, куда указано. 0