InterBase 7.1 - утечки памяти.

[pushkin42]

Вопрос по использованию IB7.1 в Borland Developer Studio 2006.

Есть код:

function Query(const Q: String): TIbDataset;
var iTrn: TIbTransaction;
begin
  if (cfmDesktop<>nil) then begin
    cfmDesktop.imConnect.Show;
    cfmDesktop.imConnect.Update;
  end;
  iTrn := TIbTransaction.Create(nil);
  iTrn.DefaultDatabase := dmGlobal.ibDatabase;
  Result := TIbDataSet.Create(nil);
  Result.Database := dmGlobal.ibDatabase;
  Result.Transaction := iTrn;
  Result.SelectSQL.Text := Q;
  Result.Active :=True;
  if (cfmDesktop<>nil) then cfmDesktop.imConnect.Hide;
end;

После выполнения этого кода выполняется следующий:

function FinalizeQuery(const iDS: TIbDataSet): Boolean;
begin
  Result := True;
  try
    iDS.Close;
    iDS.Free;
  except
    iDS.Free;
    Result := False;
  end;
end;

Теперь вопрос: Почему после выполнения двух данных процедур, ibserver.exe весит больше и больше с каждым запросом? Например, если делать запрос на 500 записей из одной таблицы, прирост составляет 10-15 Мбайт каждый раз, после этого память не освобождается до тех пор, пока не сделаешь перезагрузку ibserver'у.

Вроде бы все компоненты освобождаю и запросы закрываю...

Подскажите новичку!

[mihali4]

iTrn := TIbTransaction.Create(nil);
...
Result := TIbDataSet.Create(nil);

А где освобождаем память от всего этого зачем-то динамически создаваемого барахла?

[pushkin42]

Пасиб. Я уже разобрался сам :-)