OpenEuphoria

Re: Ecw for Borland

• Posted by Derek Parnell <dparnell at BIGPOND.NET.AU> Nov 09, 2000
• 411 views

Robert,
this might be a bug in the translator. The 'dir' function is not returning a
file-found condition.

The program below works in the interpretor but not when compiled (Borland
5.5).


--------------------
include file.e
include msgbox.e
object dirResult
sequence aMsg
integer in
sequence FileName
FileName = "testdir.exw"
   dirResult = dir(FileName)
   if atom(dirResult)
   then
      aMsg = sprintf("The source file '%s' cannot be found.", {FileName})
      in = message_box (aMsg, " Error ", 0)
   else
      aMsg = sprintf("File is %s", {dirResult[1][D_NAME]})
      in = message_box (aMsg, " Good ", 0)
   end if

--------------------

------
Derek Parnell
Melbourne, Australia
(Vote [1] The Cheshire Cat for Internet Mascot)