//用字符指针读取流中的内容
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;
返回: 指针新位置
}