freepascal.ru

Лекс Айрин писал(а):

yantux писал(а):но это всё не то, я имелл ввиду:

А Если будет код типа:

Код: Выделить всё

begin(first_block)
        код 1
 end(first_block);
        код 2
begin(first_block)
        код 3
 end(first_block);
.....
begin(first_block)
        код 4
 end(first_block);

Лекс Айрин писал(а):B4rr4cuda, я специально привел пример неудобочитаемого кода, для которого невозможно добиться ясности подписывая операторные скобки.

yantux писал(а):...
У Паскаля есть операторы begin и end, у языка Си и С++ есть скобки { }.
...

iN0k писал(а):как мне кажется тут есть некоторое недопонимание

yantux писал(а):...
У Паскаля есть операторы begin и end, у языка Си и С++ есть скобки { }.
...

что, вообще говоря, неточно. Языковые конструкции типа: begin и end в Паскале и { } в Си, это "Операторные Скобки".
смысл которых аналогичен скобкам в математических выражениях: ((1+x)*2)/((123+x)*4).

Лекс Айрин писал(а):yantux, а на что тут ругаться? Это нормальный программный текст.

Например, такого вида:

Код: Выделить всё

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
     form2.Show;
end;
procedure TForm1.ToolButton2Click(Sender: TObject);
begin
  form2.Hide;
end;
procedure TForm1.ToolButton5Click(Sender: TObject);
Var
   S:string;
   Node:TTreeNode;
 begin
   S:='test'; {добавить потом форму ввода заголовка и пр.}
   Node:=Form1.TreeView1.Selected;
   Form1.TreeView1.Items.Add (Node, S);
   Node:=Form1.TreeView1.Selected.GetNext;
   Form1.TreeView1.Items.AddChild (Node,'добавить');
end;
procedure TForm1.ToolButton6Click(Sender: TObject);
Var
   S:string;
    Node:TTreeNode;
begin
   S:='testChild'; {добавить потом форму ввода заголовка и пр.}
   Node:=Form1.TreeView1.Selected;
   Form1.TreeView1.Items.AddChild(Node, S);
end;

Но вот маркировка блоков его испоганит.

Не имеет смысла делать маркировку блоков процедуры или функции. Имеет смысл делать маркировку блоков внутри функции/процедуры.

Лекс Айрин писал(а):iN0k, это, думаю, все осознают.

F=((1+x)*2)/((123+x)*4) 

a=123+x
F=((1+x)*2)/(a*4) 

a=123+x
b=a*4
y=1+x
z=y*2
F=z/b 

iN0k писал(а):как видно в последнем примере, вопроса о скобках нет. У каждого begin будет однозначно-очевидный end, и IDE подскажет где какого нет.

iN0k писал(а):а использование конструкций вида if/endif, case/endcase и аналогов информативности не добавляет, а при рефакторинге дак просто бесит.