[Paskal]

Ребята знаю пост глупый но я начинаю считать себя полным ламером.
Суть -
Есть масив в который загружаю из потока картинку jpg, после манипуляций с ней а именно я её печатаю,после ее нужно удалить с этого массива (DataFails). Главное: стоит sSpinEdit2 которым переключаю картинки - загружаю в image из массива.

Код:

var
DataFails: Array[1..30] of TJpegImage;

Пробывал и free и даже пытался задать другое изображение через Assign
но не в какую
При Assign вообще ошибка- типа память не может быть прочитана.

Код:

//form1.DataFails[sSpinEdit2.Value].Free;
form1.DataFails[sSpinEdit2.Value].Assign(Image7.Picture.Graphic);

Лучше всего мне в массиве заменить картинку на другую
подскажите в чем я накосячил, заранее поклон и благодарность с ++

[lmikle]

А создавать не пытался?

Код:

var
  DataFails: Array[1..30] of TJpegImage;

// Пресоздание объектов
procedure TForm1.FormCreate(...);
var
  I : Integer;
begin
  For I := Low()DataFiles) to High(DataFiles) Do
    DataFiles[i] := TJPEFImage.Create;
end;

// Очистка
procedure TForm1.FormDestroy(...);
var
  I : Integer;
begin
  For I := Low()DataFiles) to High(DataFiles) Do
    DataFiles[i].Free;
end;

procedure TForm1.Button1Click();
var
  I : Integer;
begin
  I := Random(30)+1;
  DataFiles[i].LoadFromFile(...);
end;

[Paskal]

Ну создаю но в 1 форме, может не догоняю, при изменении изображение по новой создавать объект нужно?
Попробую.

[angvelem]

Для 1-го элемента

Код:

  if Assigned(DataFails[1]) then
  begin
    DataFails[1].Free;
    DataFails[1] := NIL;
  end;

либо очищай так

Код:

  if Assigned(DataFails[1]) then
    FreeAndNil(DataFails[1]);

При изменении изображения, просто загружаешь новое.

[Paskal]

angstrom случайно не angvelem?
Спс Работает! Теперь понял чо у меня не выходило

Код:

if Assigned(DataFails[1]) then
  FreeAndNil(DataFails[1]);

[angvelem]

Ну всё, спалил.