Delphi 中文件的操作FileOpen

最新推荐文章于 2019-06-11 15:48:41 发布

Aces

最新推荐文章于 2019-06-11 15:48:41 发布

阅读量2.8k

点赞数 2

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签： delphi integer buffer mfc 编程 api

本文链接：https://blog.youkuaiyun.com/yeling023/article/details/7049425

Delphi 专栏收录该内容

1 篇文章

订阅专栏

本文详细介绍了在Delphi中使用FileOpen函数读取文件内容的方法，并提供了示例代码，帮助开发者掌握文件操作的基本技能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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操作文件的方式,话不多说,示例是最有说服力的:

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