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;