X
xf47
Unregistered / Unconfirmed
GUEST, unregistred user!
type
TImageLists=record
image:array[0..5,0..6]of TBitmap;
C:array[0..5,0..6]of boolean;
end;
Pimagelist=^Timagelist;
var
Pimagelist;
mem:TMemorystream;
begin
new(p);
//创建图片,导入图片等等操作
mem:=TMemorystream.create;
mem.writebuff(p^,sizeof(Timagelist));//为什么这个数据就无法正常写入内存流?这里是不是不应该用sizeof(Timagelist)?应该怎么写?
dispose(p);
TImageLists=record
image:array[0..5,0..6]of TBitmap;
C:array[0..5,0..6]of boolean;
end;
Pimagelist=^Timagelist;
var
Pimagelist;
mem:TMemorystream;
begin
new(p);
//创建图片,导入图片等等操作
mem:=TMemorystream.create;
mem.writebuff(p^,sizeof(Timagelist));//为什么这个数据就无法正常写入内存流?这里是不是不应该用sizeof(Timagelist)?应该怎么写?
dispose(p);