VPF::Ошибка при уничтожении объекта

Keeper89

Дата 3.2.2010, 17:55 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Доброго времени суток.

Создаю класс:

Код


  TProblem = class
  private
    FFunction: TObjectList<TFunction>;     // Список TFunction
    FLimitation: TObjectList<TLimitation>; // Список TLimitation
    FResults: TValues;
  public
    constructor Create;
    destructor Destroy; override;
    property Functions: TObjectList<TFunction> read FFunction write FFunction;
    property Limitations: TObjectList<TLimitation> read FLimitation write FLimitation;
  end;

constructor TProblem.Create;
begin
  inherited;
  FFunction := TObjectList<TFunction>.Create;
  FLimitation := TObjectList<TLimitation>.Create;
end;

destructor TProblem.Destroy;
begin
  FreeAndNil(FFunction); // Ошибка возникает здесь
  FreeAndNil(FLimitation);
end;

При уничтожении выдается ошибка:

Цитата

Project Project1.exe raised exception class EInvalidPointer with message 'Invalid pointer operation'.

Код


var
  myProblem: TProblem;
  myFunction: TFunction;
begin

  myProblem := TProblem.Create;
  try
    myFunction := TFunction.Create(exMin);
    try
      for i := 0 to mmo3.Lines.Count - 3 do
        myFunction.Add(StrToInt(mmo3.Lines[i]));
      ShowMessage(
                  Format('Count = %d | MaxIndex = %d | MaxItem = %d',
                         [myFunction.Count,
                          myFunction.MaxIndex,
                          myFunction.MaxItem])
                 );

      myProblem.Functions.Add(myFunction);
    finally
      FreeAndNil(myFunction);
    end;
  finally
    FreeAndNil(myProblem);
  end;

Что я делаю неправильно? smile

Это сообщение отредактировал(а) Keeper89 - 3.2.2010, 17:57

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Qu1nt

Дата 3.2.2010, 20:30 (ссылка)

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

Загрузка ...

Опытный

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

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

FreeAndNil(myFunction);.

Это сообщение отредактировал(а) Qu1nt - 3.2.2010, 20:31

Keeper89

Дата 3.2.2010, 21:45 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Qu1nt, тоже самое.

Это сообщение отредактировал(а) Keeper89 - 3.2.2010, 21:47

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Shaggy

Дата 3.2.2010, 22:27 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 2.5.2007
Где: г.Ижевск

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

Hint:

TObjectList<T: class> = class(TList<T>)
...
constructor Create(AOwnsObjects: Boolean = True); overload;

&

FreeAndNil(myFunction);

shmelina

Дата 6.2.2010, 23:06 (ссылка)

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

Загрузка ...

Шустрый

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

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

В своем коде ты удаляешь и очищаешь локальную переменную:

Код


var
  myFunction: TFunction;
...
  FreeAndNil(myFunction)

Но в объекте TProblem в поле-списке Functions по прежнему храниться ссылка на тот объект. Вернее на мусор от него. И соответственно при попытке удалить Functions ты получаешь ошибку.

TObjectList при удалении удаляет все классы которые в нем находятся.

Тебе не нужно удалять FreeAndNil(myFunction), при удалении Problem этот объект удалиться.

Keeper89

Дата 6.2.2010, 23:59 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

ОК, всем спасибо, разобрался.

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

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