TA的每日心情 | 开心 2017-4-20 15:12 |
---|
签到天数: 5 天 [LV.2]偶尔看看I
|
代码如下:
{%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()函数按照文件名查询文件是否存在的目录是在哪里设置的?我想要查询的程序可能放错了位置一直查不到。求助大神们!! !
|
|