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

NieL

Дата 18.9.2008, 16:06 (ссылка)

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

Загрузка ...

Бывалый

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

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

Дайте совета по оптимизации кода а то как мне кажется код выглядит громоздко. Может какие проверки еще добавить.

Код


function Tdatamodule_Connection.Last: Integer;
begin
  Result := -1;
  if ConnectionStatus = csConnected then
    with cmp_Table_ do begin
      try
        Open;
        if RecordCount <= 0 then
          Result := 0
        else
        begin
          Last;
          Result := FieldByName(const_field_item_id).AsInteger;
        end;
      except
        on E: Exception do
          FLastError := E.Message;
        raise Exception.Create(FlastError);
      end;
    end
  else begin
    FLastError := 'ERROR_CONNECT';
    raise Exception.Create(FlastError);
  end;

VICTAR

Дата 18.9.2008, 16:19 (ссылка)

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

Загрузка ...

Эксперт

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

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

А что здесь нужно оптимизировать? smile

Вот это вот не совсем понятно:

Код


except
        on E: Exception do
          FLastError := E.Message;
        raise Exception.Create(FlastError);
      end;

NieL

Дата 18.9.2008, 16:22 (ссылка)

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

Загрузка ...

Бывалый

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

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

Цитата(VICTAR @ 18.9.2008, 16:19)

А что здесь нужно оптимизировать? smile

Вот это вот не совсем понятно:

Код


except
        on E: Exception do
          FLastError := E.Message;
        raise Exception.Create(FlastError);
      end;

Нужно сохранять текст ошибки

pseud

Дата 18.9.2008, 16:47 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

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

Код


function Tdatamodule_Connection.Last: Integer;
begin
  Result := -1;
  if ConnectionStatus = csConnected then
    with cmp_Table_ do begin
        Open;
        if RecordCount <= 0 then
          Result := 0
        else
        begin
          Last;
          Result := FieldByName(const_field_item_id).AsInteger;
        end;
    end
  else begin
    FLastError := 'ERROR_CONNECT';
    raise Exception.Create(FlastError);
  end;

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

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