freepascal.ru

debi12345 писал(а):которая без скобок :не компилируется.

debi12345 писал(а):Да это понятно, что любые претензии к неоднозначности - надуманы. Называется "учи нюансы и переливы, делай зарубки, закрепляй ежесекундной практикой практикой"

then обязательно требовать END

Наличие или отсутствие символа ";" ни как не влияет на неоднозначность

debi12345 писал(а):Удивительно, что Вы до сих пор на эту неоднозначность (приводящую к логической кривизне) не нарывались Компилятор ругается фиг знает на что, указывая на самый конец программы

debi12345 писал(а):Это значит что в циклах и ветвлениях больше _нельзя_ будет использовать выражения без ";" в конце. И по ходу, так как теперь имеем как бы всегда "тело" из нескольких выражений - отпадает необходимость в BEGIN (как в отличителе режима "несколько выражений").

debi12345 писал(а):Компилятор ругается фиг знает на что, указывая на самый конец программы

Это не "неоднозначность" - компилятор ругается и это уже достаточно. Собственно если компилятор не умеет показывать ошибку

Это ошибка в компиляторе.

debi12345 писал(а):Вы сами с этой ошибкой сталкивались ?

Ни разу не вспомнил ситуации, где это бы отвлекло более, чем на 1-2 сек.

END проблемы бывают исключительно, если работать в блокноте, а не в RAD.

то Вам в любом случае придется работать и с ранее существовавшими проектами

debi12345 писал(а):Вы хотите сказать никогда сами не впечатываете и не удаляете ENDы ? Не вписываете встроенные функции ?

debi12345 писал(а):У меня наоборот на MSEgui - только новые проекты. А зачем переделывать работающие старые ? Пусть работают, каши за казуальную подшлифовку они не просят Уверен что и у 99% остальных такая же ситуация

alexey38 писал(а):Соответственно лишний или забытый END видно еще без компиляции.

Лекс Айрин писал(а):Если правильно пользоваться отступами, то забытый begin/end видно даже в блокноте без всякой подсветки.

Но RAD с соответствующими плагинами позволяет об этом не задумываться. Причем плагин открытый.

забытый begin/end

IF ... THEN BEGIN 
  act1a; act1b; 
END ELSE 
  act2;

debi12345 писал(а):Вспомните удаленную сборку

debi12345 писал(а):Проблемы создают без-END-овые однолинейные конструкции:

У нас ни одна из приведенных Вами строк не проходит по нашему внутреннему стандарту для написания кода.

Сборка вообще не требует ни какого редактора, даже блокнот не нужен, достаточно консоли.

with fieldread, (dataset as tmsesqlquery) do begin
  if (fieldwrite.dataset.state in [dsBrowse,dsInactive]) then exit;
   if fieldread is tmselongintfield then begin
      if local_idx_num >= 0 then begin
         if not indexlocal[local_idx_num].find(
            [fieldwrite.asinteger],[],bm,
            false,false,true
         ) then begin
            fieldwrite.clear;
         end;
      end;
   end else if fieldread is tmsestringfield then begin
      if local_idx_num >= 0 then begin
         if not indexlocal[local_idx_num].find(
            [fieldwrite.asmsestring],[],bm,
            false,false,true
         ) then begin
            fieldwrite.clear;
         end;
      end;
   end;
end;

with fieldread:fr, (dataset as tmsesqlquery):ds do
  if (fieldwrite.dataset.state in [dsBrowse,dsInactive]) then 
     goto end;
  end;
  if fr is tmselongintfield then
     if local_idx_num >= 0 then
        if not ds.indexlocal[local_idx_num].find(
            [fieldwrite.asinteger],[],bm,
            false,false,true
         ) then
            fieldwrite.clear;
        end;
     end;
  elif fr is tmsestringfield then
     if local_idx_num >= 0 then
        if not ds.indexlocal[local_idx_num].find(
           [fieldwrite.asmsestring],[],bm,
           false,false,true
        ) then
           fieldwrite.clear;
        end;
     end;
  end;
end;

debi12345 писал(а):А-а, вижу что "MСEDIT" Вам не знаком. Я в нем днями сижу, сразу в нескольких сессиях

debi12345 писал(а):То есть у вас принято пассивно-приспособительское решение не добиваться фиксов в тулзах, а блокировать глюки этих тулз репрессивными мерами по отношению к персоналу ? Почему ? Тулзы ведь свободные - убеждай, доказывай разработчикам, не удалось убедить - модифицируй для внутреннего употребления без необходимости террризировать персонал...

debi12345 писал(а):Хм, а такой код соответствует вашим стандартам :

debi12345 писал(а):? Обратите внимание на бесящий "ELSE IF" который надеюсь скоро будет заменен на "ELIF"

debi12345 писал(а):EXIT & RETURN будут заменены на GOTO - с целью ВСЕГДА ВИДЕТЬ откуда и куда (к какой конкретно метке) идет ветвление.