Код, который, заставляет задуматься...

[EducatedFool]

И что из того, что код сложен для восприятия?
Главное, чтобы он корректно работал.

Я вот регулярно пишу подобные строчки:

If Len(Trim(cell)) Then
    sh.Range("c:c").Find(cell).Offset(, 1).Resize(3).Find(cell.Next).EntireRow.Cells(2).Copy cell.Previous
End If

К тому же, Вы, скорее всего, ещё не видели нормальных формул в Excel

=СУММ(ЕСЛИ(ЧАСТОТА(ПОИСКПОЗ(ЕСЛИ((ДВССЫЛ(к10;)>=RC[-4])*
(ДВССЫЛ(к10;)<=RC[-3])*(ДВССЫЛ(к2;)=RC[-5]);ДВССЫЛ(к4;);)
;ЕСЛИ((ДВССЫЛ(к10;)>=RC[-4])*(ДВССЫЛ(к10;)<=RC[-3])*(ДВССЫЛ(к2;)=RC[-5]);ДВССЫЛ(к4;);););
ПОИСКПОЗ(ЕСЛИ((ДВССЫЛ(к10;)>=RC[-4])*(ДВССЫЛ(к10;)<=RC[-3])*
(ДВССЫЛ(к2;)=RC[-5]);ДВССЫЛ(к4;););ЕСЛИ((ДВССЫЛ(к10;)>=RC[-4])*(ДВССЫЛ(к10;)<=RC[-3])*
(ДВССЫЛ(к2;)=RC[-5]);ДВССЫЛ(к4;););))>0;1;))-1

Творение не моё, но работает отменно. Упростить возможности нет.


Производительность кода ничуть не зависит от длины строки кода...

Некоторые пишут по 2-3 символа в строке, да ещё вставляют пустые строки между строками кода, - вот это мне нравится гораздо меньше (когда для просмотра простейшего кода приходится пролистывать несколько страниц текста)

[russian-stalker]

Вот сворачивание в одну строчку:
http://s53.radikal.ru/i139/0910/5d/214774226cba.jpg

[Alex Cones]

Красиво. Жаль в семерке такого нет.

[Levsha100]

А вот в Microsoft Visual Studio 2008

[Alex Cones]

Ну это тот же случай, когда Microsoft крадет идеи. В который раз.

[alexBlack]

Кстати о работоспособности кода в посте #1
А ведь логика тоже пострадала и возможно именно из-за того, что код сложно прочитать. Попробуйте, например, для такого значения:

'WWWWWWWW'#13'iiiiiiiiii'; <-- здесь количество символов i > чем символов W

Не поэтому ли стоит (+10). Сравнивать же нужно не длину строк, а ширину в пикселах. Тогда монстр был бы еще больше. Следуя логике, в которой был написан код:

if StringGrid2.Canvas.TextWidth(copy(....)) >
           StringGrid2.Canvas.TextWidth(copy(.... )
then StringGrid2.ColWidths[i] := StringGrid2.Canvas.TextWidth(copy(.... )
else ...

Лично мне не нравится не длина кода (с этим еще как-то можно смириться), а количество вызовов. Например, сколько раз вызывается метод GetCell. А ведь это для каждой ячейки сетки. Конечно, процессор нужно чем-то занять, но не так-же.

[russian-stalker]

А CodeGear разве не принадлежит Microsoft'у? И в Visual Studio такой интерфейс уже ого-го сколько, а в CodeGear недавно. И вообще CodeGear является почти полной копией студии

[Alex Cones]

А CodeGear разве не принадлежит Microsoft

Ах да, я и забыл, что мелкомягкие разорили и купили все права борланда. Но первоидею разработки визуальных сред - ОНИ УКРАЛИ!

[russian-stalker]

Она у них только в dotNet. А по мне лучше уж C++ + WinAPI, больше свободы, но мелкософты так и стремятся перевести всё на dotNet

[Serge_Bliznykov]

А CodeGear разве не принадлежит Microsoft'у?

Ах да, я и забыл, что мелкомягкие разорили и купили все права борланда.

Да Господь с Вами!
не принадлежит и никогда не принадлежал!
у Борланда его купила компания Embarcadero Technologies, которая им сейчас и владеет.
а вот сворачивание кода Микрософт если и украла, то точно не у Борланда...