内存映射文件，求救？

[jettang]

我用MapViewOfFile得到了内存映射文件的地址，但如何移动指针读取每个记录呢？谢谢？

[cjf]

如果你知道记录的结构，就可以直接移动了。

[jettang]

用什么函数移

[Firing_Sky]

得到一个指针Link
@Link:=@Link+RecordLength

[Firing_Sky]

搞错了，好像只要用
procedure TForm1.Button1Click(Sender: TObject);
var
P:PChar;
begin
GetMem(P,100);
P:=P+4;
end;

[jettang]

我试了出错 "left side cannot be assigned to"

[jettang]

我已知道，和大家分享
p1:=Pointer(integer(MapFilePointer)+sizeof(recordofmapfile)); //移动指针