delphi 文件的读取（二进制文件和文本文件）

源码资源网

delphi 文件的读取（二进制文件和文本文件）

1. procedure TForm_main.Button5Click(Sender: TObject);  
   
2. var  
   
3.   myStream:TFileStream;  
   
4.   myFileSize:Integer;  
   
5.   myTextFile:TextFile;  
   
6.   text,data,fileStr:string;  
   
7.   fileData:TStringList;  
   
8.   memory:TMemoryStream;  
   
9.   stringStream: TStringStream;  
   
10.   buffer:PChar;  
    
11.   resource:TResourceStream;  
    
12.   jj:TCustomMemoryStream;  
    
13.   MyWrite:TWriter;  
    
14.   MyReader:TReader;  
    
15. begin  
    
16.   //解析文件  普通读取  
    
17.   //myStream:=TFileStream.Create('');  
    
18.   AssignFile(myTextFile,Edit1.Text);  
    
19.   Reset(myTextFile);  
    
20.   while not Eof(myTextFile) do  
    
21.   begin  
    
22.     readln(myTextFile,text);  
    
23.     data:=data+text;  
    
24.     //ShowMessage(text);  
    
25.   end;  
    
26.   CloseFile(myTextFile);  
    
27.   //ShowMessage(data);  
    
28.   //TStringList 读取文件  
    
29.   fileData:=TStringList.Create;  
    
30.   fileData.LoadFromFile(Edit1.Text);  
    
31.   //ShowMessage('行数:'+inttostr(fileData.Count));  
    
32.   //Application.MessageBox(PWideChar(fileData.Text),'系统提示',0);  
    
33.   fileData.Free;  
    
34.   //TFileStream二进制读取  
    
35.   myStream:=TFileStream.Create(Edit1.Text,fmShareDenyRead);  
    
36.   myStream.Position:=0;  
    
37.   //myStream.Seek(0);  
    
38.   GetMem(buffer,myStream.Size);  
    
39.   //SetLength(buffer,myStream.Size);  
    
40.   myStream.Read(buffer^,myStream.Size);  
    
41.   ShowMessage(buffer);  
    
42.   fileStr:=Pchar(@buffer[0]);  
    
43.   ShowMessage(fileStr);  
    
44.    // TReader对应TWriter  
    
45.   //MyReader:=TReader.Create(myStream,myStream.Size);  
    
46. // filestr:=  MyReader.ReadString;  
    
47. // ShowMessage(fileStr);  
    
48.   FreeAndNil(myStream);  
    
49.   //  
    
50.   memory:=TMemoryStream.Create;  
    
51.   memory.LoadFromFile(Edit1.Text);  
    
52.   //memory.SaveToFile('test.txt');  
    
53.   memory.ReadBuffer(buffer^,memory.Size);  
    
54.   ShowMessage(memory.ToString);  
    
55.   ShowMessage(buffer);  
    
56.   
    
57.   //TStringStream读取文件  
    
58.   stringStream:=TStringStream.Create;  
    
59.   stringStream.LoadFromFile(Edit1.Text);  
    
60.   ShowMessage(stringStream.DataString);  
    
61.   stringStream.Free;  
    
62.   
    
63. end;  

复制代码