2011-04-23 140 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 

你介意把更大的代碼塊(也許對引擎收錄並鏈接我給它)?問題的原因可能在代碼的早些時候。