Question

（求救）如何将自定义的文本文件的内容分段取出。再发到一个定义好的buf[] 中去

Answer 1

var fsTemp:TFileStream;begin fsTemp:=TFileStream.Create('my.txt',fmOpenRead); fsTemp.Read(buf,12);///////发1234567890ab{ fsTemp.Position:=7;///定位7890abcdefgh位置 fsTemp.Read(buf,12);////////发7890abcdefgh} fsTemp.Destroy;

Answer 2

是我刚刚粘贴的时候没改过来。应是for iforloop:= 7 to 38 do buf[iforloop]:=m_buf[iforloop-7];