TFileStream和TMemoryStream分别读取、创建、合并文件

1. function Tform1.Test;  
2. var  
3. fs:TFileStream;  
4. fs2:TFileStream;  
5. fs3:TFileStream;  
6. str:string;  
7. ms:TMemoryStream;  
8. ms2:TMemoryStream;  
9. sr:TStream;  
10. begin  
11.     //TFileStream创建文本文件  
12.     str:='文件操作';  
13.     fs:=TFileStream.Create('c:\1.txt',fmCreate);  
14.     fs.WriteBuffer((PChar(str))^,Length(str));  
15.     fs.Free;  
16.       
17.     //TFileStream读取文本文件  
18.     fs:=TFileStream.Create('c:\1.txt',fmOpenRead);  
19.     SetLength(str,fs.size);  
20.     fs.ReadBuffer((PChar(str))^,fs.Size);  
21.     ShowMessage(str);  
22.     fs.Free;  
23.   
24.     //TFileStream读取文本文件  
25.     ms:=TMemoryStream.Create;  
26.     ms.LoadFromFile('c:\1.txt');  
27.     SetLength(str,ms.size);  
28.     ms.ReadBuffer((PChar(str))^,ms.size);  
29.     ms.Free;  
30.     ShowMessage(str);  
31.   
32.     //TMemoryStream创建文本文件  
33.     str:='文件操作';  
34.     ms:=TMemoryStream.Create;  
35.     ms.WriteBuffer((PChar(str))^,Length(str));  
36.     ms.SaveToFile('c:\2.txt');  
37.     ms.Free;  
38.   
39.     //TMemoryStream文件合并  
40.     ms:=TMemoryStream.Create;  
41.     ms.LoadFromFile('c:\1.txt');  
42.     ms.Position:=ms.Size;//移动文件指针  
43.     ms2:=TMemoryStream.Create;  
44.     ms2.LoadFromFile('c:\2.txt');  
45.     ms.CopyFrom(ms2,0);  
46.     ms.SaveToFile('c:\3.txt');  
47.     ms.Free;  
48.     ms2.Free;  
49. end;