Бывает такая ситуация, что когда много кода в процедуре, то начинаешь путаться где начало (begin), где конец (end).
Ну например:
Цитата:
procedure TForm1.Button1Click(Sender: TObject);
begin
if x begin
if not y begin
end;
if s > 10 begin
if not lol begin
end;
end;
end;
end;
Это ещё не большой пример, но уже можно запутаться.
Я делаю так (и предлагаю Вам):
Цитата:
procedure TForm1.Button1Click(Sender: TObject);
begin
if x begin // 1
end; // 1
end;
А при большом коде:
Цитата:
procedure TForm1.Button1Click(Sender: TObject);
begin
if x begin // 1
if not y begin // 2
end; // 2
if s > 10 begin // 3
if not lol begin // 4
end; // 4
end; // 3
end; // 1
end;
Правда ведь удобнее?
________________
Все материалы исключительно для ознакомления. (Рад помочь!)
[Ссылки могут видеть только зарегистрированные пользователи. ]
Не знаю, правильно ли я скажу, а нельзя ли просто сдвигать tab'ом строчки (то есть вложенные функции писать более "сдвинутыми").
Судя по "procedure TForm1.Button1Click(Sender: TObject);" это Delphi, а я в нем не силен, поэтому не знаю можно ли так в нем сдвигать, но ведь Delphi "вырос" из Turbo Pascal'я, где так делать можно.
proc dialogproc,H,M,W,L
mov eax,[M]
cmp eax,WM_COMMAND
je COMMAND
cmp eax,WM_CLOSE
je CLOSE
xor eax,eax
je bye
COMMAND:
cmp [W],1001
je b1001
cmp [W],1002
je b1002
xor eax,eax
jmp bye
b1001:
test [Flags],param
jne ParamSet
jmp fin
ParamSet:
cmp byte[someparam],0xFF
je @B
call someproc_1
jmp fin
@@:
call comeproc_2
jmp fin
b1002:
call someproc_3
jmp fin
CLOSE:
invoke EndDialog,0
jmp fin
fin:
mov eax,1
bye:
ret
endp