2011-04-23 135 views
1

我有以下的QuickBasic 4.5代码:之前阵列未标注尺寸

IF LEN(Dir$("mtn.vga")) > 0 THEN 
BLOAD "mtn.vga", VARPTR(mtn(1)) 

我试图将它移植到FreeBasic但收到错误消息:

Array not dimensioned, before '('

IF LEN(Dir("mtn.vga")) > 0 THEN

 ^

任何想法?

回答

2

该特定行是完全有效的FreeBASIC代码(即使在Dir()后面保留美元符号,它也可以工作)。我跑这个测试代码,以确保公正,和它的作品为人们所期望的:

IF LEN(DIR("sa.bas")) > 0 THEN 'sa.bas is the name of this file 
    PRINT "file exists" 
END IF 

你介意把更大的代码块(也许对引擎收录并链接我给它)?问题的原因可能在代码的早些时候。