請問下面那段程式碼要如何修正?才能正常compiler.. 程式碼如下: ------------------------------------------------- if fileopen('c:\abc.text',fmopenread) > 0 then begin assignfile(infile,'c:\abc.text'); reset(infile); readln(infile,instring); end else showmessage('檔案不存在'); compiler訊息如下: -------------------------------------------------------------- project project1.exe raised exception class EInOutError with message 'I/O error 32'.Process stopped.Use Step or Run to continue.

引言: 請問下面那段程式碼要如何修正?才能正常compiler.. 程式碼如下: ------------------------------------------------- if fileopen('c:\abc.text',fmopenread) > 0 then begin assignfile(infile,'c:\abc.text'); reset(infile); readln(infile,instring); end else showmessage('檔案不存在'); compiler訊息如下: -------------------------------------------------------------- project project1.exe raised exception class EInOutError with message 'I/O error 32'.Process stopped.Use Step or Run to continue.

用以下指令代替 if fileexists('abc.txt') then showmessage('找到') else showmessage('不存在'); ～～～Delphi K.Top討論區站長～～～

if FileExists('c:\abc.txt') then begin assignfile(infile,'c:\abc.text'); try reset(infile); readln(infile,instring); finally closefile(infile); end; end else showmessage('檔案不存在');