Так нет же есть такие "не ленивые" кому не впадлу одинаковый код тысячу раз писать, а потом один модуль выходит 10000 строк, ошибся 12000 из которых 50% повторяется - идиотизм, вот это что такое. Это новичку проще сделать копи-паст, вместо того чтобы один раз функцию написать и вместо 20 строк выполнять тоже самое одной, но для этого надо понимать программирование. Понимать надо, чем занимаешься!
Вот почему кодинг без общих правил писания кода, проверки кодеров на квалификацию и соблюдение этих правил - полная херня!
А так у нас и есть, хорошо что нас сейчас только двое, есть возможность по тихому направить в нужное русло человека.
Нужно разработать стандарт кодирования, надоело плеваться - уже целое ведро наплевал за 5 месяцев, и будет еще, ибо 12000 сток я сократил пока только на 1000, а там еще гектар не паханный...(
UpdateLog.Cells[0, UpdateLog.RowCount - 1] := InttoStr(UpdateLog.RowCount - 1);
UpdateLog.Cells[1, UpdateLog.RowCount - 1] := 'Сбой записи данных кроссконнкта для мультипл-ра '
+ Muxes[MuxId].Comment + ' на удаленный сервер: ' + E.Message;
UpdateLog.Cells[2, UpdateLog.RowCount - 1] := DateTimeToStr(now);
UpdateLog.RowCount := UpdateLog.RowCount + 1;
АРХХХХХ! ТВОЮ Ж МЕДЬ! КАК ЖЕ ЗАДОЛБАЛО!
Как верно написано по теме http://habrahabr.ru/blogs/development/5