Verantwortlichkeiten / Wer kümmert sich um Freigeben

[Jonas Shinaniganz]

Hallo, Ich habe eine Klasse der man Blöcke hinzufügt:

Delphi-Quellcode:

  // Die Blöcke
  TBlock = class(TPersistent)
  private
    FImage : TBitmap;

  // Die Klasse welche Blöcke hat
  TReportUnit = class(TPersistent)
  private
    FBlocks : TObjectList;

Wenn Ich jetzt eine Block übergebe enthält der Block ein IMG.

Delphi-Quellcode:

// von außen kann man nur die TReportUnit sehen und die hat AddBlock
 ReportUnit.AddBlock('Hysterese Test 1', Bitmap1);

Dafür brauche Ich ja ein Bitmap

Delphi-Quellcode:

  Bitmap1 := TBitmap.Create;
  Bitmap1.LoadFromFile('D:\platzhalter1.bmp');
  ReportUnit.AddBlock('Hysterese Test 1', Bitmap1);
  // Dann mache Ich das Generate vom Report
  ReportUnit.Generate;
  // Dann gebe Ich die ReportUnit wieder frei
  ReportUnit.Free;

  // Was ist jetzt erwartet?
  // Bitmap1.Free; ?
  // Oder wird ab jetzt davon ausgegangen das im Block.Destroy; auch irgendwann     
  // das Img von selbst freigegeben wird?

Ist Die Block Klasse für Das Img Verantworlich oder besser die Prozedur wos auch erstellt wurde?

Grüße.