Это, конечно, если нужен сабж, а не секьюрный еомпонент, скрывающий рисунок.

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

я понимаю так:

1. есть пустой Image
2. делаем LoadFromFile
3. надо вернуть Image в исходное состояние.

мне тоже кажется, что должно быть решение в одну строку. мой последний код с последовательным освобождением всех ресурсов, скорее всего, правильный. и утечек он не даст. но это дебильство.

мне уже самому интересно.

Я не понимаю, что ты собрался освобождать.
Что, если ты последовательно загрущишь в Image 50 картинок(просто применяя метод LoadFromFile без никакой очистки) 49 у тебя остануться в памяти мертвым грузом!!!!!!!!!!!!!!!!!!!!!!! Я еще раз подчеркиваю, что это не так. Нет я признаю, что я могу ошибаться, но все же!

magician, ты прав. речь не о том.

открой пустой проект. кинь на него Image1 и кнопку. по кнопке загружай рисунок. кинь вторубю. кнопку. рисунок должен очиститься. не стать белым или зелёным. а таким, каким был изначально. т.н. - отсутствующим.

как это корректно реализовать?

x77, никакой утечки не будет. Bitmap - это свойство... Если присваиваешь nil, то произойдет простой .Free (см. метод SetGraphic)... Так что мудрить сильно не надо.

Правильно говорит p0s0l. Внимательно смотрим исходники:

Код

procedure TPicture.SetGraphic(Value: TGraphic); var  NewGraphic: TGraphic; begin  NewGraphic := nil;  if Value <> nil then  begin    NewGraphic := TGraphicClass(Value.ClassType).Create;    NewGraphic.Assign(Value);    NewGraphic.OnChange := Changed;    NewGraphic.OnProgress := Progress;  end;  try    FGraphic.Free;    FGraphic := NewGraphic;    Changed(Self);  except    NewGraphic.Free;    raise;  end; end;

вау

Image.Picture.Assign(nil);