VPF::Оптимизация кода - Форум программистов

Nutz

Дата 13.10.2009, 10:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 11.9.2009

Репутация: нет
Всего: нет

Дайте совет по оптимизации, написал 2 варианта кода, какой лучше:

Код


function Tdatamodule_Connection.FindById2(ItemId, Where: Integer): Integer;
var
  OldItemID: Integer;
  B: Boolean;
begin
  Result := -1;
  if ConnectionStatus = csConnected then
  begin
    SelectionStatus := ssByKey;
    try
      OldItemID := Ffield_item_id.AsInteger;
      B := False;
      case Where of

        W_ITEMS:
          B := cmp_TableByKey_.FindKey([ItemId]) and
            (Ffield_group_id.AsInteger <> 0) and (Ffield_flags.AsLargeInt <> 1);

        W_SECTIONS:
          B := cmp_TableByKey_.FindKey([ItemId]) and
            (Ffield_group_id.AsInteger = 0) and (Ffield_flags.AsLargeInt <> 1);

        W_ITEMS_AND_SECTIONS:
          B := cmp_TableByKey_.FindKey([ItemId]) and
            (Ffield_flags.AsLargeInt <> 1);

        else
          raise Exception.CreateResFmt(@const_msg_InvalidWhereParam, [Where]);
      end;
      Result := Integer(B);
      WhereStatus := Where;
      if Result = 0 then
        cmp_TableByKey_.FindKey([OldItemID]);
    except
      on E: Exception do
        LastMsgError := E.Message;
    end;
  end
  else
    LastMsgError := LoadResString(@const_msg_ConnectionNotExists);
end;

или

Код


function Tdatamodule_Connection.FindById2(ItemId, Where: Integer): Integer;
var
  OldItemID: Integer;
  B: Boolean;
begin
  Result := -1;
  if ConnectionStatus = csConnected then
    try
      SelectionStatus := ssByKey;
      OldItemID := Ffield_item_id.AsInteger;
      B := cmp_TableByKey_.FindKey([ItemId]) and (Ffield_flags.AsLargeInt <> 1);
      case Where of

        W_ITEMS:
          B := B and (Ffield_group_id.AsInteger <> 0);

        W_SECTIONS:
          B := B and (Ffield_group_id.AsInteger = 0);

        W_ITEMS_AND_SECTIONS:;

        else
          raise Exception.CreateResFmt(@const_msg_InvalidWhereParam, [Where]);
      end;
      Result := Integer(B);
      WhereStatus := Where;
      if Result = 0 then
        cmp_TableByKey_.FindKey([OldItemID]);
    except
      on E: Exception do
        LastMsgError := E.Message;
    end
  else
    LastMsgError := LoadResString(@const_msg_ConnectionNotExists);
end;

Aeore

Дата 13.10.2009, 22:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 21.4.2007

Репутация: нет
Всего: нет

Во первых не ясно что это такое. Во вторых мне второй вариант больше нравится.

~FoX~

Дата 14.10.2009, 10:47 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

ИМХО второй красивше только два совета
1. В if ConnectionStatus = csConnected then, поставь все таки begin
2. Я бы проверял не if Result = 0 then, а if B = false then

Хотя это конечно придирки...

--------------------

…множественность никогда не следует полагать без необходимости…

v258

Дата 14.10.2009, 11:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 93
Регистрация: 19.7.2005
Где: Краснодарский кра й

Репутация: 2
Всего: 2

Цитата(~FoX~ @ 14.10.2009, 10:47

)

if B = false then

Я бы написал так:

Код


  if not B then

но это уже совсем придирка smile

А по сути вопроса - маловато комментариев, имхо

Это сообщение отредактировал(а) v258 - 14.10.2009, 11:11

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »