内存流的使用

//用字符指针读取流中的内容　
var　
　pc:　PChar;　
begin　
　pc　:=　mStream.Memory;
{
把字符指针指向内存流
}

　ShowMeage(pc[0]);

 

//从流读入到缓冲区　
var　
　buffer:　array[0..2]　of　Char;
{
定义个字符缓冲区
}

begin　
　mStream.Seek(0,　soFromBegiing);　
　mStream.Read(buffer,　SizeOf(buffer));　
　ShowMeage(buffer);

 

{关于　Seek　函数:　
　参数1:　Offset　是偏移量;　
　参数2:　Origin　是指针的基准位置,　有三个选值:　soFromBegiing、soFromCurrent、soFromEnd　
　soFromBegiing:　以开始为基准,　此时参数　Offset　要　>=　0;　
　soFromCurrent:　以当前位置为基准;　
　soFromEnd:　以结束为基准;　此时参数　Offset　要　<=　0;　
　返回:　指针新位置　
}