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


S>>а вот так непримемлемо (не получится отлаживаться, но не из — за "нечитаемости").

K>У меня всё так же с Delphi. Я вообще полный самоучка, никогда не работал на работодателя, поэтому пишу так:

K>

K>if n=0 then begin freearraysandclassess; result:=false; exit; end;
K>

Это уже точно не читаемо

K>У меня довольно часто возникает потребность писать именно такой код, когда в сложной процедуре выясняется что работу можно прервать, возвратить false, но при этом нужно не забыть уничтожить все вспомогательные классы и динамические массивы. Т.е. такая строчка у меня часто повторяется в коде. Тут бы макрос мне...
K>Действительно возникает проблема с тем что не поставишь брекпоинт, поэтому конкретно для отладки могу временно разбить эту строку на несколько.

Чтобы не забывать освобождать объекты используется try.. finally

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


S>>а вот так непримемлемо (не получится отлаживаться, но не из — за "нечитаемости").

K>У меня всё так же с Delphi. Я вообще полный самоучка, никогда не работал на работодателя, поэтому пишу так:

K>

K>if n=0 then begin freearraysandclassess; result:=false; exit; end;
K>

Это уже точно не читаемо

K>У меня довольно часто возникает потребность писать именно такой код, когда в сложной процедуре выясняется что работу можно прервать, возвратить false, но при этом нужно не забыть уничтожить все вспомогательные классы и динамические массивы. Т.е. такая строчка у меня часто повторяется в коде. Тут бы макрос мне...
K>Действительно возникает проблема с тем что не поставишь брекпоинт, поэтому конкретно для отладки могу временно разбить эту строку на несколько.

Чтобы не забывать освобождать объекты используется try.. finally
Или чтобы было лаконичней использовать смартпойнтер