TDictionary Zugriff über property

[Kratos]

Direkt danach soll es im TImage angezeigt werden.
TImage.Picture.Bitmap.Assign(MyBitmap); Wenn das Bitmap gefüllt ist, dann wird ein schwarzes Viereck im TImage angezeigt, welches 16x16 Pixel groß ist.
Das ist aber nicht das Bild, welches in der DB gespeichert ist.

Anmerkung: Schon im GetSomeBitmap kommen die falschen Abmessungen heraus.

War das die Information, die du haben wolltest oder habe ich dich falsch verstanden?

[Uwe Raabe]

Was geschieht im weiteren Verlauf mit MyBitmap? Wird es irgendwie manipuliert oder freigegeben?

Es wäre auch interessant zu wissen was in LoadFromDB mit MyBitmap passiert, was uns aktuell noch verborgen wird.

[Kratos]

Zitat:

Was geschieht im weiteren Verlauf mit MyBitmap? Wird es irgendwie manipuliert oder freigegeben?

MyBitmap wird ganz zum Schluss in der ListBoxOnclick-Methode freigegeben.

Zitat:

Es wäre auch interessant zu wissen was in LoadFromDB mit MyBitmap passiert, was uns aktuell noch verborgen wird.

NACHDEM in LoadFromDB die Methode SaveToDictionary aufgerufen wird, wird auch hier MyBitmap freigegeben.

Ich hab jetzt mal BEIDE MyBitmap.Free auskommentiert.
Jetzt wird alles korrekt angezeigt!
So ein einfacher Fehler... das kann echt nicht sein.

Vielen Dank, wirklich!!!

[EDIT]: Ich hab MyBitmap.Free in ListBoxOnClick() mal wieder mit reingenommen.
Es funktioniert weiterhin.

Aber dann hab ich dennoch einen Denkfehler.
Denn ich nahm an, wenn ich eine extra Bitmap in SaveToDictionary anlege und diese neue Bitmap befülle und anschließend in das TDictionary wegspeichere, dass ich dann die alte Bitmap aus LoadFromDB freigeben darf. Während die neue Bitmap NICHT freigegeben wird.
Das erschließt sich mir gerade nicht.

[Uwe Raabe]

TBitmap ist ja eine Klasse und in der TTest-Instanz wird nur ein Zeiger auf die TBitmap-Instanz gespeichert. Ebenso enthält das Directory nur Zeiger auf TTest-Instanzen.

Folgendes ist also problematisch:

Delphi-Quellcode:

function GetSomeText(AMyKey: string): string;
var
  Test: TTest;
begin
  Test := TTest.Create;
  FDD.TryGetValue(AMyKey, Test);
  Result := Test.SomeText;
end;

Das TryGetValue gibt die gefundene TTest-Instanz im Parameter Test zurück. Die vorher erzeugte Instanz verbleibt somit als Speicherleck. Besser wäre:

Delphi-Quellcode:

function GetSomeText(AMyKey: string): string;
var
  Test: TTest;
begin
  Result := ''; // Wert bei not found
  if FDD.TryGetValue(AMyKey, Test) then
    Result := Test.SomeText;
end;

Analog hier:

Delphi-Quellcode:

function GetSomeBitmap(AMyKey: string): TBitmap;
var
  Test: TTest;
begin
  Result := nil; // Wert bei not found
  if FDD.TryGetValue(AMyKey, Test) then
    Result := Test.SomeBitmap;
end;

Und hier wäre eventuell das besser:

Delphi-Quellcode:

procedure ListBoxOnClick;
var
  MyBitmap: TBitmap;
begin
  if MyListBox.ItemIndex > -1 then
  begin
    MyMemo.Text := pSomeText[MyListBox.Items[MyListBox.ItemIndex]];
    ...
    MyBitmap := pSomeBitmap[MyListBox.Items[MyListBox.ItemIndex]];
    Image.Picture.Graphic := MyBitmap;
    // kein MyBitmap.Free, da uns die Instanz hier nicht gehört. Andernfalls klappt es beim zweiten Mal vermutlich nicht mehr.
  end;
end;

Damit die Bitmaps auch am Ende freigegeben werden, sollte in einem TTest.Destroy noch ein SomeBitmap.Free erfolgen.

[Kratos]

@Uwe Raabe

Vielen Dank für deine zusätzlichen Erklärungen und Tipps!