Можно, но не нужно. [обсуждение темы БП]

Последнее время я не программирую, а рaзгpебаю зaвалы которые оставили до меня покoления программистов. Чтобы внести минимальное декоративное изменение требуется исправить несколько модулей и потратить несопоставимую по сложности работу по выискиванию всех мест, в которые надо внести изменения.
Дело в том, что тем методы, которые допустимы в примерах, олимпиадах и лабах по программированию, совершенно неприемлемы при создании крупных и долгоживущих прикладных программ.
Предлагаю в этой теме публиковать примеры, как не надо программировать на Delphi, что бы потом не было мучительно больно от встречи с теми, кто исправлял твой код.

Самый вредный оператор — with :)

procedure TMainForm.ProcName;
begin
with Form10 do
begin
...
//три экрана теста
with TForm9.Create(nil) do
begin
...
//три экрана текста
Сaption := 'неизвестно чей';
ShowModal;
Free; //неизвестно кого
end;
end;
end;

Не знаю почему в некоторых кругах такой стиль моден.
Размер кода конечно сокращается, что полезно при распечатке на бумаге, но существенно усложняется последующий анализ, вероятнее всего где-нибудь какое-то свойство будет присвоено не тому экземпляру. Кроме того при отладке IDE без озрения совести будет показыват не те значения переменных, какие должны быть.
Если уж используете with do begin end, то в тех случаях, когда весь этот блок может быть полностью охвачен взглядом.

Cep

	"Knowledge itself is power" F.Bacon
Поиск \| Карта сайта \| Помощь \| О проекте \| ТТХ