Delphi 中文件的操作FileOpen

var
  iFileHandle : Integer;
  iFileLength : Integer;
  iBytesRead, i : Integer;
  Buffer : ^char;
  strPath : String;
begin
    // 取得文件路径
    strPath := ExtractFilePath(Application.ExeName) + 'EventStep1.dat';
    // 读取文件内容
    iFileHandle := FileOpen(strPath,fmOpenRead);//fmopenread指的是文件以只读方式打开,还有其他更多的方式,如fmCreate等
    if iFileHandle <> -1 then  // 判断文件返回值,看打开是否正确
    begin
      iFileLength := FileSeek(iFileHandle,0,2);//得到文件的长度
      FileSeek(iFileHandle,0,0); // 游标指向起始
      GetMem(Buffer,(iFileLength+1));//buffer分配内存
      iBytesRead := FileRead(iFileHandle, Buffer, iFileLength); //读数据,写时可用FileWrite
    end;
    FileClose(iFileHandle);// 关闭文件
end;

    在VC编程中,文件操作有较多的方式,比如使用API,C++的文件流,C的File文件操作以及使用MFC提供的封装类CFile等等, 其实在delphi中的文件操作也有很多的方式,这里我只想谈谈FileOpen操作文件的方式,话不多说,示例是最有说服力的:

以上可以简单的说明怎样读取,当然要真正完全掌握这个方法,那就要靠自己多多专研了!