Hi:

If I have an array of bitmaps (i.e.:  var Bitmaps: array[0..$F] of TBitmap),
how can I save them all to a single file?  And then of course read them
back.

I tried the following, but only a single bitmap gets read back.
Note that it is assumed that the bitmaps are already created and
get destroyed properly:

  Save bitmaps:

  var
    Stream: TFileStream;
    I     : Integer;
  begin
  Stream := TFileStream.Create ('Somefile.ext', fmCreate);
  for I := 0 to $F do
    Bitmaps[I].SaveToStream (Stream);
  Stream.Free;
  end;

  Read bitmaps:

  var
    Stream: TFileStream;
    I     : Integer;
  begin
  Stream := TFileStream.Create ('Somefile.ext', fmRead);
  for I := 0 to $F do
    Bitmaps[I].LoadFromStream (Stream);
  Stream.Free;
  end;

The code is from the top of my head, but should be
pretty much what I have.  I suspect that the
problem is with LoadFromStream because there is
no telling how many bytes to read.

Has anyone else{*word*180}ed this problem>

Best regards,
Michael Vincze
m...@asd470.dseg.ti.com