Delphi 文件的读取（1）

procedure TForm1.Button1Click(Sender: TObject);

var
iFileHandle: Integer;
iFileLength: Integer;
iBytesRead: Integer;
Buffer: PChar;
i: Integer
begin
if OpenDialog1.Execute then
begin
try
iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PChar(AllocMem(iFileLength + 1));
iBytesRead = FileRead(iFileHandle, Buffer, iFileLength);
FileClose(iFileHandle);

for i := 0 to iBytesRead-1 do
begin
StringGrid1.RowCount := StringGrid1.RowCount + 1;
StringGrid1.Cells[1,i+1] := Buffer[i];
StringGrid1.Cells[2,i+1] := IntToStr(Integer(Buffer[i]));
end;
finally
FreeMem(Buffer);
end;
end;
end;

Delphi同Object Pascal一样支持三种文件类型，即：文本文件、记录文件、无类型文件。

6.1.1文本文件

文本文件类型的变量用如下方法声明：

var
TextFileVar: Text ;

文本文件是以行为单位进行读、写操作的。

由于每一行长度不一定相同，不能计算出给定行在文件中的确切位置，因而只能顺序地读写。

而且文本文件只能单独为读或写而打开，在一个打开的文本文件上同时进行读、写操作是不允许的。

6.1.1.1文本文件的打开、关闭

文本文件的打开需要两个步骤：(1). 文件变量与文件名关联；(2).初始化读写。
关联文件变量与文件名调用AssignFile标准过程：

AssignFile ( TextFileVar , FileName ) ;

FileName 既可以是全路径名，也可以仅是文件名。对于后者系统将在当前目录下查找。
AssignFile是Delphi新提供的一个函数，其功能等价于Object Pascal中的Assign。而Assign在Delphi中更多地被用作一个方法名。

初始化读写有三种方式：
1. Reset :为读打开文件并把文件指针移动到文件首；
2. Rewrite :为写创建一个新文件；
3. Append : 为写打开存在的文件并把文件指针定位在文件尾。

当使用Reset或Append过程而文件不存在时将会引发一个I/O异常。有关I/O异常的处理请参看本章例程和第十二章中的介绍。
文件的关闭很简单，只须调用CloseFile过程即可。
虽然Delphi