[SpectraL]

Подтвердите пожалуйста, что в Delphi XE7, если после оператора "repeat ... until true" нажать Enter, то снова добавляется текст "until ;":

Код:

// Пример
procedure TForm1.Button1Click(Sender: TObject);
  var
    i: byte;
begin
  repeat
    synchronize(procedure begin i := 'test'; end)
  until true;
  until ;
  until ;
  until ;
end;

MAD: используем теги по назначению

[Страдалецъ]

Не установлен у меня XE-7, но предположу,что всему виной вот эта строчка:

Код:

synchronize(procedure begin i := 'test'; end)

[M.A.D.M.A.N.]

В XE7 часто начинает глючить завершение кода из-за делегатов и/или из-за свертки кода.