type

.....
MapData=Packed record //地图的数据
Size:integer;
Data:array of byte;
end;

TReadMap = class(TObject)
Private
..........................................
m_jpeg:MapData; // JPEG 数据
..........................................
...........................................
function ReadJPEG(fp:TFileStream;Flag,Size:integer;var m_jpeg:MapData):boolean; // 读取地图JPEG的数据

........................................
Public
constructor Create(Ifilename: string);overload;
destructor Destroy; override;

procedure LoadMap; //加载地图文件

.....................

function ReadJpegData:MapData; // 读取JPEG的数据
.........................
protected

end;
// 读取地图JPEG的数据
function TReadMap.ReadJPEG(fp:TFileStream;Flag: integer; Size: integer):boolean;
begin
SetLength(m_jpeg.Data,0); // 分配单元数据的内存空间 ---???? 在此出错！！！！！！！
fp.Read(m_Jpeg.Data,size); // 读取单元JPEG的数据
m_jpeg.Size:=size;
result:=true;
end;



请求大大帮忙！！！！！！！

type
pMapData = ^MapData;

MapData=Packed record
Size:integer;
Data:array of byte;
end;

TReadMap = class(TObject)
Private
m_jpeg:pMapData;
function ReadJPEG(fp:TFileStream;Flag,Size:integer;m_jpeg:pMapData):boolean; // 读取地图JPEG的数据
Public
constructor Create(Ifilename: string);overload;
destructor Destroy; override;
procedure LoadMap; //加载地图文件
function ReadJpegData:MapData; // 读取JPEG的数据
protected
end;

constructor TReadMap.create(Ifilename: string);
begin
Inherited;
New(Self.m_jpeg);
.....
end;

destructor TReadMap.destroy;
begin
Dispose(Self.m_jpeg);
.....
Inherited;
end;

function TReadMap.ReadJPEG(fp:TFileStream;Flag: integer; Size: integer;m_jpeg:pMapData):boolean;
begin
//SetLength(m_jpeg^.Data,0);用Winapi ZeroMemory初始化吧～
fp.Read(m_Jpeg^.Data,size);
m_jpeg^.Size:=size;
result:=true;
end;

你用SetLength就syntax上是沒錯的，
但是指向record的時候有個問題，record是連續空間，
當你使用SetLength時，它會為Data重新配置記憶體，
於是新的Data並不會在原先的記憶體位置，這時候就會出錯了。

------
不論是否我發的文，在能力範圍皆很樂意為大家回答問題。
為了補我的能力不足之處，以及讓答案可以被重複的使用，希望大家能儘量以公開的方式問問題。
在引述到我的文時自然會儘量替各位想辦法，謝謝大家！

New(Self.m_jpeg);



Dispose(Self.m_jpeg);



m_jpeg^.Size:=size;


这几句编译不过！！