[Статья] Путаетесь в коде? (Begin, end)

[Glavos]

Бывает такая ситуация, что когда много кода в процедуре, то начинаешь путаться где начало (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'я, где так делать можно.

Хотя метод помечания строк правда удобен

[Dinmaite]

А вот первый вариант вообще не геморный, там 1 удар по табу, тут 2 по слешу и 1 по цифре, а если вложенность в 30 процедур то как?)

[Leo_ня]

Во всех языках используются сдвиги.

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