Освобождение памяти от картинки по указателю

[JoLan]

Есть 2 структуры:

  DTFEDIT = record
    StrType: String;
    Img: TImage;
    Commands: Array [0..2] of String;
    StartX,StartY,Width,Heigth: Integer;
    ImgPath: String;
    Index, FontSize: Integer;
    RGBValues: Array [0..2] of Integer;
    UnkCommand: String;
    UnkValues: Array [0..2] of Integer;
  end;

...

  DTFIMAGEPICTURE = record
    StrType: String;
    Img: TImage;
    Commands: Array [0..2] of String;
    StartX, StartY, Width, Height: Integer;
    OverAll,SomeValue: Integer;
    ImgPath: String;
  end;

  PIB = ^DTFIMAGEPICTURE;
  PEDIT = ^DTFEDIT;

Далее идет процедура освобождения памяти от загруженных в Img картинок:

procedure ListFree(var sList: TList);
var ib: PIB;
    edt: PEDIT;
begin
  for i := 0 to sList.Count - 1 do begin
    sib := sList.Items[i];
    if sib^.StrType = 'EDIT' then begin
      edt := sList.Items[i];
      if edt^.Img <> nil then edt^.Img.Free;
    end;   
    if sib^.StrType = 'IMAGEPICTURE' then begin
      ib := sList.Items[i];
      if ib^.Img <> nil then ib^.Img.Free;
    end;
  end;
end;

В случае с edt картинка освобождается без багов, когда дело доходит до ib, то вылезает Access Violation. В чем может быть проблема?

[eduard93]

Покажите код заполнения списка.

[chertovich]

А память для структуры ib была выделена? Делается при помощи New или GetMem

[JoLan]

Для всех структур в начале парсинга указано:

var LEDIT: PEDIT;
begin
  New(LEDIT);
  mList.Add(LEDIT);

Ну естественно для каждого типа своя переменная.

[eduard93]

Тогда может удаляемый объект просто не был создан?

[JoLan]

Если бы он просто не существовал, в таком случае он был равен nil. В том и дело, он создан, указатель при дебаге явно указывает на картинку, по экспанду видно, что это компонент.

[_Engine_]

Может FreeAndNil поможет?

[JoLan]

В который раз пишу вперед включения мозга и чтения документации. Компоненты и правда не существовали, а в указателях был рандомный адрес. Проблему решил добавив во все структуры Exists: Boolean и менял значение в зависимости от удачной/неудачной загрузки.

[JoLan]

Теперь новая проблема, память освобождается не полностью. Как можно освободить целиком от загруженной структуры, приведенной выше?

[eduard93]

Наверное нужно поискать пару функции New.