Корректна ли замена BitMap

[Kronos913]

Procedure aaa(var bbb:TBitMap);
var
  ddd:TBitMap;
begin
  ddd:=TBitMap.Create;
  {какие-то действия, которые наполняют ddd информацией}
  bbb.free;
  bbb:=ddd;
end;

И потом вызываю процедуру

aaa(bmp1);

Будет ли корректно работать такой код?
1. Не будет ли создаваться лишнего мусора в памяти?
2. Будет ли за пределами этой процедуры нормально работать новое изображение по старой переменной bmp1?

[Cuprum5]

Сообщение от Kronos913

Не будет ли создаваться лишнего мусора в памяти?

- будет, конечно. Такие большие объекты, как Bitmap не передаются в полном объеме, передается лишь указатель на них. Если надо несколько вариантов одного и того же изображения - заведите несколько глобальных переменных.

[Arigato]

Сообщение от Cuprum5

будет, конечно

Ну на первый взгляд не должно, так как он делает bbb.free. А вот подчищает ли за собой весь мусор деструктор класса TBitMap, тут я не знаю...

[Vapaamies]

Деструктор подчищает, естественно. Другое дело, что на экземпляр TBitmap могут ссылаться или агрегировать внутри себя другие объекты, поэтому экземпляры классов обычно через var-параметры не передают. TBitmap наследован от TPersistent, поэтому общей практикой является «объектное» присваивание вызовом метода Assign:

procedure aaa(bbb: TBitmap);
var
  ddd: TBitmap;
begin
  ddd:=TBitmap.Create;
  try
    {какие-то действия, которые наполняют ddd информацией}
    bbb.Assign(ddd);
  finally
    ddd.Free;
  end;
end;

Для некоторых типов графических объектов внутри VCL есть еще глобальный кэш, работающий незаметно для программиста. Не помню, что именно он делает, плюс, кажется, он только для шрифтов и кистей (в Windows 9x нужно было экономить ресурсы GDI), а картинки не кэшируются. По-любому, всегда можно посмотреть отладчиком, что именно происходит внутри VCL, собрав программу с отладочными модулями.