Re[5]: супер код - О работе

CanContinue := False;

if edCaptionUK.Text <> '' then
begin
if edCaptionRU.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edCaptionRU.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 1;
edCaptionRU.SetFocus;
Exit;
end;
if edCaptionEN.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edCaptionEN.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 2;
edCaptionEN.SetFocus;
Exit;
end;
end;

if edCaptionRU.Text <> '' then
begin
if edCaptionUK.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edCaptionUK.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 0;
edCaptionUK.SetFocus;
Exit;
end;
if edCaptionEN.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edCaptionEN.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 2;
edCaptionEN.SetFocus;
Exit;
end;
end;

if edCaptionEN.Text <> '' then
begin
if edCaptionUK.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edCaptionUK.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 0;
edCaptionUK.SetFocus;
Exit;
end;
if edCaptionRU.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edCaptionRU.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 1;
edCaptionRU.SetFocus;
Exit;
end;
end;

//=============================================== Caption

//=============================================== Author
if edAuthorUK.Text <> '' then
begin
if edAuthorRU.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edAuthorRU.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 1;
edAuthorRU.SetFocus;
Exit;
end;
if edAuthorEN.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edAuthorEN.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 2;
edAuthorEN.SetFocus;
Exit;
end;
end;

if edAuthorRU.Text <> '' then
begin
if edAuthorUK.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edAuthorUK.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 0;
edAuthorUK.SetFocus;
Exit;
end;
if edAuthorEN.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edAuthorEN.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 2;
edAuthorEN.SetFocus;
Exit;
end;
end;

if edAuthorEN.Text <> '' then
begin
if edAuthorUK.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edAuthorUK.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 0;
edAuthorUK.SetFocus;
Exit;
end;
if edAuthorRU.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edAuthorRU.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 1;
edAuthorRU.SetFocus;
Exit;
end;
end;
//=============================================== Author
//=============================================== Place
if edPlaceUK.Text <> '' then
begin
if edPlaceRU.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edPlaceRU.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 1;
edPlaceRU.SetFocus;
Exit;
end;
if edPlaceEN.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edPlaceEN.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 2;
edPlaceEN.SetFocus;
Exit;
end;
end;

if edPlaceRU.Text <> '' then
begin
if edPlaceUK.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edPlaceUK.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 0;
edPlaceUK.SetFocus;
Exit;
end;
if edPlaceEN.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edPlaceEN.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 2;
edPlaceEN.SetFocus;
Exit;
end;
end;

if edPlaceEN.Text <> '' then
begin
if edPlaceUK.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edPlaceUK.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 0;
edPlaceUK.SetFocus;
Exit;
end;
if edPlaceRU.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edPlaceRU.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 1;
edPlaceRU.SetFocus;
Exit;
end;
end;

//=============================================== Place
//=============================================== Copyright
if edCopyrightUK.Text <> '' then
begin
if edCopyrightRU.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edCopyrightRU.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 1;
edCopyrightRU.SetFocus;
Exit;
end;
if edCopyrightEN.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edCopyrightEN.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 2;
edCopyrightEN.SetFocus;
Exit;
end;
end;

if edCopyrightRU.Text <> '' then
begin
if edCopyrightUK.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edCopyrightUK.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 0;
edCopyrightUK.SetFocus;
Exit;
end;
if edCopyrightEN.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edCopyrightEN.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 2;
edCopyrightEN.SetFocus;
Exit;
end;
end;

if edCopyrightEN.Text <> '' then
begin
if edCopyrightUK.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edCopyrightUK.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 0;
edCopyrightUK.SetFocus;
Exit;
end;
if edCopyrightRU.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edCopyrightRU.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 1;
edCopyrightRU.SetFocus;
Exit;
end;
end;

//=============================================== Copyright
//=============================================== AltText
if edAlttextUK.Text <> '' then
begin
if edAlttextRU.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edAlttextRU.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 1;
edAlttextRU.SetFocus;
Exit;
end;
if edAlttextEN.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edAlttextEN.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 2;
edAlttextEN.SetFocus;
Exit;
end;
end;

if edAlttextRU.Text <> '' then
begin
if edAlttextUK.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edAlttextUK.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 0;
edAlttextUK.SetFocus;
Exit;
end;
if edAlttextEN.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edAlttextEN.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 2;
edAlttextEN.SetFocus;
Exit;
end;
end;

if edAlttextEN.Text <> '' then
begin
if edAlttextUK.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edAlttextUK.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 0;
edAlttextUK.SetFocus;
Exit;
end;
if edAlttextRU.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + edAlttextRU.LabelCaption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 1;
edAlttextRU.SetFocus;
Exit;
end;
end;
//=============================================== AltText
//=============================================== Text
if mTextUK.Text <> '' then
begin
if mTextRU.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + Label2.Caption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 1;
mTextRU.SetFocus;
Exit;
end;
if mTextEN.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + Label3.Caption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 2;
mTextEN.SetFocus;
Exit;
end;
end;

if mTextRU.Text <> '' then
begin
if mTextUK.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + Label1.Caption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 0;
mTextUK.SetFocus;
Exit;
end;
if mTextEN.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + Label3.Caption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 2;
mTextEN.SetFocus;
Exit;
end;
end;

if mTextEN.Text <> '' then
begin
if mTextUK.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + Label1.Caption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 0;
mTextUK.SetFocus;
Exit;
end;
if mTextRU.Text = '' then
begin
MessageBox(Handle, PChar('Ïîëå "' + Label2.Caption + '" ïîâèííî ìàòè çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 1;
mTextRU.SetFocus;
Exit;
end;
end;
//=============================================== Text

CanContinue := True;

и это все одна функция... Мозгами тронуться !!!

Здравствуйте, HAN-BRATAN, Вы писали:

[]

Отстреливать. Или на крайняк большую линейку и по рукам.

Здравствуйте, Flamer, Вы писали:

F>Здравствуйте, HAN-BRATAN, Вы писали:

F>[]

F>Отстреливать. Или на крайняк большую линейку и по рукам.

какая нах линейка??? отстрел!

Здравствуйте, HAN-BRATAN, Вы писали:

HB>Здравствуйте, Flamer, Вы писали:

F>>Здравствуйте, HAN-BRATAN, Вы писали:

F>>[]

F>>Отстреливать. Или на крайняк большую линейку и по рукам.

HB>какая нах линейка??? отстрел!

Воттокль вместо кодво символов та просто символы, это глюк при вставке текста

.

Здравствуйте, HAN-BRATAN, Вы писали:

HB>Воттокль вместо кодво символов та просто символы, это глюк при вставке текста

.

Аааа.. а я уж хотел защищать писателя. Иногда полезно некоторый код, который в результате выдает флаг CanContinue писать самым сумасшедшим образом, чтоб и с литром не разобрались. Просто если потом дебажить через низкоуровневый отладчик, то умом придется трогаться тому кто там ковыряется....

Здравствуйте, HAN-BRATAN, Вы писали:

HB>и это все одна функция... Мозгами тронуться !!!

Это еще цветочки (370 строк) по сравнению с "продакшн" кодом, который в данный момент крутится на тысячах серверов одного из крупнейших ретейлеров в США. В нем я как-то раз правил метод на 3 тысячи строк, удовольствие еще то

Код был написан лет 10-15 назад и у меня сложилось впечатление, что в то время платили за кол-во строк

<deletea>

Автора — уволить, а перед увольнением — избить полным составом проектной группы

Здравствуйте, HAN-BRATAN, Вы писали:

Да, код, конечно, отнстойный, но его можно хорошо рефакторить.
Тут дело в плохом выравнивании.

Я провел рефакторинг, сделал нормальное выравнивание и код
теперь стал вполне читаемым (см. ниже):

CanContinue := False; if edCaptionUK.Text <> '' then
begin if edCaptionRU.Text = '' then begin
MessageBox(Handle,PChar('Ïîëå "' +
edCaptionRU.LabelCaption + '" ïîâè'
+'ííî ì'+'àòè ç'
'+íà÷åííÿ!'),PChar(
Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 1; edCaptionRU.SetFocus;
Exit; end; if edCaptionEN.Text = '' then begin MessageBox(
Handle, PChar('Ïîëå "' +
edCaptionEN.LabelCaption + '" ïîâèí'
+'íî ìàòè çíà'
+'÷åííÿ!'), PChar(Application.Title),
MB_OK or MB_ICONWARNING);PageControl1.ActivePageIndex := 2;
edCaptionEN.SetFocus; Exit; end; end; if edCaptionRU.Text
<> '' then begin if edCaptionUK.Text = '' then begin
MessageBox(Handle, PChar('Ïîëå "'+
edCaptionUK.LabelCaption + '" ïîâèí'
+'íî ìàòè çíà'
+'÷åííÿ!'), PChar(Application.Title),
MB_OK or MB_ICONWARNING);PageControl1.ActivePageIndex := 0;
edCaptionUK.SetFocus;Exit;end;if edCaptionEN.Text = ''
then beginMessageBox(Handle, PChar('Ïîëå "'
+ edCaptionEN.LabelCaption + '" ïîâ'+
'èííî ìàòè '
+'çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 2;edCaptionEN.SetFocus;
Exit;end;end;if edCaptionEN.Text <> '' then begin if
edCaptionUK.Text = '' then begin MessageBox(Handle,
PChar('Ïîëå "' + edCaptionUK.LabelCaption+
'" ïîâèííî ìà'
+'òè çíà÷åíí'
+'ÿ!'),PChar(Application.Title),MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 0;edCaptionUK.SetFocus;Exit;end;
if edCaptionRU.Text = '' then begin MessageBox(Handle, PChar(
'Ïîëå "' + edCaptionRU.LabelCaption +
'" ïîâèííî ìà'
+'òè çíà÷åíí'
+'ÿ!'),PChar(Application.Title), MB_OK or
MB_ICONWARNING);PageControl1.ActivePageIndex := 1;
edCaptionRU.SetFocus;Exit;end;end;if edAuthorUK.Text
<> '' then begin if edAuthorRU.Text = '' then begin
MessageBox(Handle, PChar('Ïîëå "' +
edAuthorRU.LabelCaption + '" ïîâèí'
+'íî ìàòè çíà'
+'÷åííÿ!'),PChar(Application.Title),
MB_OK or MB_ICONWARNING);PageControl1.ActivePageIndex := 1;
edAuthorRU.SetFocus;Exit;end;if edAuthorEN.Text = ''
then begin MessageBox(Handle,PChar('Ïîë'
+'å "' + edAuthorEN.LabelCaption + '" ïî'
+'âèííî ìàòè '
+'çíà÷åííÿ!'),
PChar(Application.Title), MB_OK or MB_ICONWARNING);
PageControl1.ActivePageIndex := 2;edAuthorEN.SetFocus;
Exit;end;end;if edAuthorRU.Text <> '' then begin if
edAuthorUK.Text = '' then begin MessageBox(Handle,
PChar('Ïîëå "' + edAuthorUK.LabelCaption
+ '" ïîâèííî ìà'
+'òè çíà÷åí'
+'íÿ!'),PChar(Application.Title), MB_OK or
MB_ICONWARNING);PageControl1.ActivePageIndex := 0;
edAuthorUK.SetFocus;exit;end;if edAuthorEN.Text = ''
then begin MessageBox(Handle, PChar('Ïîë'
+'å "' + edAuthorEN.LabelCaption+'" ïî'
+'âèííî ìàò'
+'è çíà÷åíí'
+'ÿ!'),PChar(Application.Title), MB_OK or
MB_ICONWARNING);PageControl1.ActivePageIndex := 2;
edAuthorEN.SetFocus;Exit;end;end;if edAuthorEN.Text <> ''
then begin if edAuthorUK.Text = '' then begin MessageBox(
Handle, PChar('Ïîëå "' +

и т.д.

... << RSDN@Home 1.1.4 @@subversion >>

Здравствуйте, Andy77, Вы писали:

A>Это еще цветочки (370 строк) по сравнению с "продакшн" кодом, который в данный момент крутится на тысячах серверов одного из крупнейших ретейлеров в США. В нем я как-то раз правил метод на 3 тысячи строк, удовольствие еще то

Код был написан лет 10-15 назад и у меня сложилось впечатление, что в то время платили за кол-во строк

Ага, тут шеф (как говориться из "был замминистра в USSR"

) на мой вопрос о том, а как "во время Оно" оценивали работу программистов с невинным видом сказл "что вообще-то был норматив — 500 строк в день". Цифру мож путаю, но сам принцип

Здравствуйте, MFCOM, Вы писали:

MFC>Автора — уволить, а перед увольнением — избить полным составом проектной группы

Ногами не бить!!! Вдруг это старенький дедушка писал?

Здравствуйте, small_cat, Вы писали:

_>Здравствуйте, MFCOM, Вы писали:

MFC>>Автора — уволить, а перед увольнением — избить полным составом проектной группы

_>Ногами не бить!!! Вдруг это старенький дедушка писал?

А если он строго следовал требованиям проектной группы ?
Каждый информационный монастырь живет по своему уставу

Здравствуйте, Orion, Вы писали:

O>А если он строго следовал требованиям проектной группы ?
O>Каждый информационный монастырь живет по своему уставу

О, тогда имеем "деяние, совершенное группой лиц по предварительному сговору"

Для начала 15 лет лагерей

O>А если он строго следовал требованиям проектной группы ?

Тогда проектную группу. Нет, не так... Тогда менеджера и руководителя группы — в газенвагенЪ

Здравствуйте, MFCOM, Вы писали:

O>>А если он строго следовал требованиям проектной группы ?

MFC>Тогда проектную группу. Нет, не так... Тогда менеджера и руководителя группы — в газенвагенЪ

Или заставить их все это перевести на язык SmallTalk в стиле ООП.

Здравствуйте, small_cat, Вы писали:

_>Ногами не бить!!! Вдруг это старенький дедушка писал?

Или девочка...

Здравствуйте, prVovik, Вы писали:

V>Я провел рефакторинг, сделал нормальное выравнивание и код
V>теперь стал вполне читаемым (см. ниже):
Ага, молодец

Зачем по 100 пробелов между кодом и самой твоей мессагой ставить?
А код и правда хорошо читается...вот таких бы программистов да в диверсанты!

Best regards, p_kolya [ http://p-kolya.narod.ru ] WinAmp сообщает: Тишина — лучшая музыка

От:	HAN-BRATAN	http://bookkeeper.com.ua
Дата:	08.12.04 15:54
Оценка:	3 (1) -1

От:	Flamer	http://users.livejournal.com/_flamer_/
Дата:	08.12.04 16:06
Оценка:

От:	HAN-BRATAN	http://bookkeeper.com.ua
Дата:	08.12.04 16:11
Оценка:

От:	HAN-BRATAN	http://bookkeeper.com.ua
Дата:	08.12.04 16:13
Оценка:

	От:	Izix
	Дата:	08.12.04 16:29
	Оценка:

	От:	small_cat
	Дата:	09.12.04 06:36
	Оценка:

	От:	small_cat
	Дата:	09.12.04 06:38
	Оценка:	+1

	От:	Orion
	Дата:	09.12.04 07:49
	Оценка:

	От:	small_cat
	Дата:	09.12.04 07:54
	Оценка: