Улучшение кода

[megachuhancer]

Как можно переписать кусок кода такого типа, чтобы не пришлось писать одно и то же дважды?

   if e <> nil then begin
      if e.ClassType <> TSomeclass then begin
         DoSomething;
      end;
   end else begin
       DoSomething;
   end;

Дело в том, что если e = nil, программа упадёт на проверке условия e.ClassType <> TSomeclass. И поэтому нельзя использовать что-то типа

if (e = nil) or (e.ClassType <> TSomeclass)...

Можно конечно вырубить Complete Boolean Eval, но нет ли лучшего способа?

[psycho-coder]

По идее в условии

if (e = nil) or (e.ClassType <> TSomeclass)...

с начала выполняется проверка на e = nil, а потом на e.ClassType <> TSomeclass.
Но условие or, мне кажется не подходит для этой проверки. Попробуйте and

if (e = nil) and (e.ClassType <> TSomeclass)...

[megachuhancer]

с начала выполняется проверка на e = nil, а потом на e.ClassType <> TSomeclass.

Это при выключенном Complete Boolean Eval. Я писал про это.

Но условие or, мне кажется не подходит для этой проверки. Попробуйте and

Нет, здесь именно or.

И вообще, если использовать and, то при e = nil, даже при выключенном Complete Boolean Eval'е, будет неоднозначность результата, а значит будет попытка вычислить e.ClassType <> TSomeclass (e = nil).

[maxionans]

Если не нравится без Complete Boolean Eval, тогда

  if ( e = nil ) or ( Assigned( e ) and ( e.ClassType <> TSomeclass ) ) then
    DoSomething;

А вообще, зачем в данном случае нужна эта опция, почему нельзя её просто выключить? У меня она всегда выключена. И может было бы лучше DoSomething сделать абстрактным методом предка семейства классов, которому принадлежит e, и в классах-потомках переопределять этот метод на необходимое поведение. Тогда не будет нужна эта лишняя проверка ( e.ClassType <> TSomeclass ).

[megachuhancer]

Короче, я понял. Лучше просто вырубить Complete Boolean Eval, и всё.

А вообще, зачем в данном случае нужна эта опция, почему нельзя её просто выключить?

Да ни за чем. Просто было интересно узнать, нет ли какого-нибудь другого способа. Может, с обработкой исключений можно что-то придумать...
Справедливости ради надо отметить, что и ваш код не будет нормально работать, если эта опция включена.

[maxionans]

Сообщение от megachuhancer

Справедливости ради надо отметить, что и ваш код не будет нормально работать, если эта опция включена.

Да, действительно!

А с обработкой исключений можно как-то так:

var
  NeedProcessing : Boolean
begin
  try
    NeedProcessing := ( e.ClassType <> TSomeClass );
  except
    NeedProcessing := True;
  end;

  if NeedProcessing then DoSometing;
end;

Но делать подобные вещи через обработку исключений это дурная практика .