如何从PChar类型取出一部分子字符串？

[zhoufs]

var
Buff: pchar;
n:integer;
Fs:TFileStream;
begin
Fs:=TFileStream.Create('c:\abc.txt',fmCreate);
n:=Socket.ReceiveBuf(Buff^, DataSize);
Fs.WriteBuffer(????? , n-3);
...........
...........
end;
----------------------------------------------------------
请问： 想要将Buff中第4个字长开始直到最后的内容写入Fs中，不知如何处理？

[wooden954]

var
Buff: pchar;
n:integer;
Fs:TFileStream;
begin
Fs:=TFileStream.Create('c:\abc.txt',fmCreate);
n:=Socket.ReceiveBuf(Buff^, DataSize);
Fs.WriteBuffer((Buffer+4) , n-3);
end;
原因：PChar字符串其实就是一个Char型的指针，并且这个指针可以进行加减操作，所以Buffer+4指的就是从Buffer的第四个字符开始

[jadeluo]

没玩过比Delphi 7版本高的Delphi, 不能肯定二楼的Fs.WriteBuffer((Buff+4), n-3); 这种玩法在高版本的Delphi是否能成。
还是写个我的指针玩法吧：

var 
  Buff: pchar; 
  n:integer; 
  Fs:TFileStream; 
begin 
  Fs:=TFileStream.Create('c:\abc.txt',fmCreate); 
  n:=Socket.ReceiveBuf(Buff^, DataSize); 
  inc (Buff, 3);
  Fs.WriteBuffer(Buff, n-3); 

[zhoufs]

wooden954： 你说得对的， 但应该写成：(Buffer+4)^

加分！