var
TempBuf :Pointer;
begin
ReadFileToBuffer('SourceData.dat', TempFileSize, FBufData);//将文件内容读取到FBufData中
end怎么样取得FBufData所指向的未地址?
TempBuf :Pointer;
begin
ReadFileToBuffer('SourceData.dat', TempFileSize, FBufData);//将文件内容读取到FBufData中
end怎么样取得FBufData所指向的未地址?
begin
result:=Pointer(DWORD(FBufData)+{GetMem FBufData时申请的长度});
end;