記憶體流的使用

//用字元指標讀取流中的內容　
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;　
　返回:　指標新位置　
}