Компьютерный форум NoWa.cc

Компьютерный форум NoWa.cc (https://nowa.cc/index.php)
-   Delphi (https://nowa.cc/forumdisplay.php?f=300)
-   -   Удаление объекта (https://nowa.cc/showthread.php?t=158951)

mambo 22.04.2008 14:30
Удаление объекта
 
Доброго времени суток всем.
У меня проблемка с удалением объекта, а точнее определением был ли он создан. Пробовал разные варианты, но что то не то...

Код:
procedure GetView;
var
  Param : String;
  dq    : TOracleQuery;
begin
  try try
    Param:= 'SELECT view_name, text  FROM all_views b WHERE owner = '+#039+LoginUser+#039+
            ' AND view_name IN (SELECT table_name FROM '+LoginUser+'.entity '+
            'WHERE id_table IN ('+TableArrObj.CommaText+'))';
    dq:= Do_Query(Param); // Создаю здесь
    while not dq.Eof do
    begin
      ....
      ....     
    end;
  finally
    if Assigned(dq) then // Пытаюсь определить был ли создан
      dq.Destroy(); // Удаляю
  end;
  except
    on E:EOracleError do
        ErrorLog(12,E.ErrorCode,E.Message);
    on E:Exception do
        ErrorLog(12,12,E.Message);
  end;
end;

danil_l 25.04.2008 10:59
Ответ: Удаление объекта
 
Попробуй следующим образом
if dq<>nil then
dq.free

stranger08 26.04.2008 03:57
Ответ: Удаление объекта
 
Переменной dq стоит присвоить nil перед try-блоком. Ведь, если функция Do_Query сгенерирует исключение, то значение dq будет случайным и вызов Destroy приведет в лучшем случае к AV. В блоке finally достаточно вызывать метод Free, который проверят, не является ли указатель на объект нулевым и, если не nil, то вызывает Destroy.

BenGun 29.04.2008 09:37
Ответ: Удаление объекта
 
блок try ... finally ... end; должен начинаться сразу после Create, в данном случае это Do_Query. А метод Free действительно не требует проверки на nil перед использованием, ибо является "классовым" методом. такие дела :)

Dark_User 29.04.2008 11:06
Ответ: Удаление объекта
 
Хмм... во первых насколько я понимаю, проблема может быть в том - создаст-ли процедура Do_Query объект или нет, иначе смысл проверять был-ли он создан... всвязи с этим, имо, логичнее там-же его проверять (Assigned-ом), при этом в Do_Query явно возвращать nil, если обект не создан. ну и как сказали - ствить try, непосредственно перед его созданием...

Во вторых, метод Free никоим образом не является классовым, и вызывать его не несуществуующем объекте - прямой путь к AV...

с уважением...

BenGun 29.04.2008 11:37
Ответ: Удаление объекта
 
Вы заронили сомнение :) проверил. нет AV. Насчет "классовости" каюсь, виноват. Я предполагал, что этим объясняется его успешное срабатывание при nil'е. Видимо это достигается отдельными усилиями со стороны компилятора. Тем не менее фраза из хелпа "Unlike Destroy, Free is successful even if the object is nil; so if the object was never initialized, Free won’t result in an error" не мистификация :)

Добавлено через 1 минуту
а Do_Query в данном примере может рассматриваться исключительно как "черный ящик", имхо

Dark_User 29.04.2008 11:51
Ответ: Удаление объекта
 
Сам засомневался, но

...
var
fObject: TObject;
i: integer;
begin
for i := 0 to 10000 do fObject.Free;
...

стабильно выдает AV...

насчет "черного ящика" - тогда имхо либо надеятся что он вернет nil, если не сможет создать объект, либо само удаление засунуть в try/except, на мой взгляд криво, но другого пути не вижу :(

да, и вызывать не dq.Destroy, dq.Free...

с уважением...

stranger08 29.04.2008 15:18
Ответ: Удаление объекта
 
2 BenGun
Мистики никакой нет, все просто:
procedure TObject.Free;
begin
if Self <> nil then
Destroy;
end;
2 Dark_User
Да, я имел в виду ситуацию, когда функция Do_Query сгенерирует исключение, которая сама не обработает, тогда значение переменной - случайное (из стека), поэтому ей нужно присвоить nil в начеле. А использовать Assigned не обязательно - достаточно сравнения на nil. Впрочем Assigned - это то же самое, но используется для свойств-событий, где сравнение с nil не проходит.

mambo 05.05.2008 10:27
Ответ: Удаление объекта
 
Приветствую все тех кто откликнулся на клич о помощи!
И огромное спасибо всем!
Функция Do_Query не не черный ящик.
Код:
function Do_Query (SQL_Text: String): TOracleQuery;
var  q:  TOracleQuery;
begin
  try
    q:= TOracleQuery.Create(DataModule1);
    q.Name:= 'querry_'+IntToStr(ora_cnt);
    q.Session:= DataModule1.OracleSession1;
    with q do
    begin
      SQL.Clear;
      DeleteVariables;
      SQL.Add(SQL_Text);
      Execute;
    end;
    ora_cnt:= ora_cnt + 1;
    result:= q;
  except
    on E:EOracleError do
      begin       
        q.Free();
        result:= nil; // как видно возвращаю nil если не создан объект
      end;
  end;
end;
Добавлено через 6 минут
Возможно я был не очень точен раньше.... Вся проблема идет из за утечки памяти при каждом неудачном выполнении.
Код:
dq:= Do_Query(Param);
Я подозреваю что экземпляр объекта dq всетаки создаётся, вот я и хочу его попробовать удалить.

Добавлено через 13 минут
Заменил
Код:
finally   
  if Assigned(dq) then
    dq.Destroy();
end;
на

Код:
finally
  dq.Free;
end;
AV стабильно вылазит, память отжирается.... :( Ну прям незнаю что делать :quest:

BenGun 08.05.2008 14:59
Ответ: Удаление объекта
 
я бы сделал примерно так
Код:
type
  TStrArray = array of string;

function Get_Query: TOracleQuery;
begin
  Result := TOracleQuery.Create(DataModule1);
  ora_cnt:= ora_cnt + 1;
  Result.Name := 'Querry_' + IntToStr(ora_cnt);
  Result.Session := DataModule1.OracleSession1;
end;

function Do_Query(var Q: TOracleQuery; SQL_Text: TStrArray): Boolean;
var
  i: Integer;
begin
  Result := False;
  try
    with Q do
    begin
      SQL.Clear;
      DeleteVariables;
      for i := Low(SQL_Text) to High(SQL_Text) do
        SQL.Add(SQL_Text[i]);
      Execute;
    end;
    Result := True;
  except
  end;
end;

procedure GetView;
var
  Q : TOracleQuery;
begin
  Q := GetQuery;
  try try
    if Do_Query(Q, [
      'SELECT view_name, text  FROM all_views b WHERE owner = ' + #039 + LoginUser + #039,
      'AND view_name IN (SELECT table_name FROM '+LoginUser+'.entity',
      'WHERE id_table IN ('+TableArrObj.CommaText+'))'])
    then
      while not Q.Eof do
      begin
        ....
        ....
      end;
  except
    on E: EOracleError do
        ErrorLog(12, E.ErrorCode, E.Message);
    on E: Exception do
        ErrorLog(12, 12, E.Message);
  end;
  finally
    Q.Free;
  end;
end;
Добавлено через 1 час 12 минут
ICQ 111326219. Всегда оффлайн :oops:


Текущее время: 23:45. Часовой пояс GMT +3.

Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2026, vBulletin Solutions, Inc. Перевод: zCarot
Copyright ©2004 - 2026 NoWa.cc

Время генерации страницы 0.02543 секунды с 9 запросами