请选择 进入手机版 | 继续访问电脑版

Lazarus中文社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

Lazarus IDE and 组件 下载地址版权申明
查看: 380|回复: 2

不明白文件放在哪个目录下,编译运行时才能被程序找到

[复制链接]
  • TA的每日心情
    开心
    2017-4-20 15:12
  • 签到天数: 5 天

    [LV.2]偶尔看看I

    发表于 2017-4-6 21:11:50 | 显示全部楼层 |阅读模式
    代码如下:
    {%RunFlags BUILD-}
    program readfile;

    {$mode objfpc}{$H+}

    uses
      {$IFDEF UNIX}{$IFDEF UseCThreads}
      cthreads,
      {$ENDIF}{$ENDIF}
      Classes
       ,SysUtils;
          // 加入必要的单元
      var
       filename:string;
       F:textfile;
       line:string;
    begin
        Write('Input a text file name: ');
        Readln(FileName);
        if FileExists(FileName) then     //????
        begin
          AssignFile(F, FileName);
          Reset(F);
          while not Eof(F) do
            begin
            Readln(F, Line);
            Writeln(Line);
           end;
          CloseFile(F);
        end
       else
      Writeln('File does not exist');
       Write('Press enter key to close..');
       Readln;
    end.


    fileexists()函数按照文件名查询文件是否存在的目录是在哪里设置的?我想要查询的程序可能放错了位置一直查不到。求助大神们!! !
    回复

    使用道具 举报

    该用户从未签到

    发表于 2017-4-7 21:11:57 | 显示全部楼层

    RE: 不明白文件放在哪个目录下,编译运行时才能被程序找到

    不是程序的当前目录吗?
    回复 支持 反对

    使用道具 举报

  • TA的每日心情
    开心
    2017-4-20 15:12
  • 签到天数: 5 天

    [LV.2]偶尔看看I

     楼主 发表于 2017-4-10 20:09:31 | 显示全部楼层

    RE: 不明白文件放在哪个目录下,编译运行时才能被程序找到

    程序的当前目录是在选项里的哪个?我即使将txt文件放在C盘目录下也没有用。运行结果总是找不到文件

    本帖子中包含更多资源

    您需要 登录 才可以下载或查看,没有帐号?立即注册

    x
    回复 支持 反对

    使用道具 举报

    QQ|手机版|小黑屋|Lazarus中国|Lazarus中文社区 ( 鄂ICP备16006501号-1

    GMT+8, 2017-9-23 11:50 , Processed in 0.043412 second(s), 9 queries , Redis On.

    Powered by Discuz! F1.0 Build 20160930

    © 2001-2017 Comsenz Inc. & Discuz! Fans

    快速回复 返回顶部 返回列表