[Fmx] TBitmap in TValue speichern

[Der schöne Günther]

Ich glaube nicht dass TValue der richtige Ansatz ist. Dadurch gewinnt man doch nichts? Mache es doch über einen (Byte)Stream oder ein Byte-Array:

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var
   byteStream: TBytesStream;
begin
   byteStream := TBytesStream.Create();
   try
      // Einmal hin...
      Image1.Bitmap.SaveToStream(byteStream);

      // .. und zurück
      byteStream.Seek(0, TSeekOrigin.soBeginning);
      Image2.Bitmap.LoadFromStream(byteStream);
   finally
      byteStream.Destroy();
   end;
end;