- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
function ... : Integer;
var
i:integer;
begin
Result := 0;
for i := 1 to ... do
if bla-bla then
inc(Result);
Result := Result;
end;
Школоло / Говнокод #2412
0
Запостил: 
popa,
(Updated )
аж перетряхивает от этого
да и вообще после функциональщины отвыкаешь от всех этих result, return, etc
Или теперь модно всё, что связано с Дельфи, называть говном?
Ну да, и эта строка тоже преисполнена смысла.
Result := Result;
Дак и выложил бы одну эту строку)
Result:=Result - крайне полезная конструкция. Она вырезается оптимизатором, если он включён (например, релиз) и остаётся, если оптимизатор выключен (например, в отладочной версии). В последнем случае можно поставить на эту строчку брейкпоинт и узнать, что там навычисляла функция, т.к. внутри функции подобной структуры никак иначе нельзя это сделать (теряются регистровые переменные).
{$IFDEF DEBUG}
{$O-}
{$ENDIF}
если нужно именно значение функции - то нельзя. или ты хочешь каждую итерацию цикла отлаживать? или ставить кучу брекпоинтов во всех местах где вызывается эта функция?
PS: хотя я при отладке ставлю бряку на конечный end
хм... ладно убедили 🙂 может кому-то и удобно
апстена.