如何取指针里面的数据？

[changsn]

比如: buf:pointer//缓存指针; 指向 buffer:array[0..1023]of byte;


Login:TLogin//自定义结构 ，存放在buffer[1]个位置，前面是自定义的数据头。

只给出指针，如果在不复制指针后面的数据的情况下，如何将buffer[1]后面的数据提取出来
copymemroy(@Login,@buf^[1],sizeof(TLogin));//这样是错的。不知道怎么写。

[mdejtod]

type
TBuffer = array[0..1023]of byte;

var buffer:TBuffer ;
copymemroy(@Login,@TBuffer(buf^)[1],sizeof(TLogin));

或者
inc(longword(buf));
copymemroy(@Login,buf,sizeof(TLogin));
dec(longword(buf));

[changsn]

大哥，第二种，对指针inc dec 这样操作安全吗？
[Quote=引用 1 楼 的回复:]

[/Quote]

[zplovepkk]

支持一楼的兄弟，

[UnkownState]

CopyMemory(pDest, Pointer(Integer(buf)+1), size)

要区别有类型的指针和吴类型的指针加减常量

[「已注销」]

move

[kuangning]

将tlogin定义成指针，将它指向数组不久可以了

type
TBuffer = array[0..1023]of byte;
PLogin=^Tlogin;
Tlogin=packed record
name:array[0..15] of Char;
sex:Byte;
pass:array[0..31] of Char;
end;


procedure TForm1.Button1Click(Sender: TObject);
var buffer:TBuffer ;
login:Tlogin;
I:Integer;
begin
for I := 0 to 1023 do
buffer[i]:= Byte(I)+$30;
login := PLogin(@buffer)^;
ShowMessage(login.name);
end;