之前未标注数组尺寸

发布于 2024-11-03 03:19:40 字数 284 浏览 6 评论 0原文

我有以下 QuickBasic 4.5 代码：

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

我尝试将其移植到 FreeBasic 但收到错误：

数组未标注尺寸，位于“(”之前
IF LEN(Dir("mtn.vga")) > 0 那么
<前><代码> ^

有什么想法吗？

原文

I have the following QuickBasic 4.5 code:

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

I'm trying to port it to FreeBasic but receive the error:

Array not dimensioned, before '('
IF LEN(Dir("mtn.vga")) > 0 THEN
       ^

Any ideas?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

谜泪 2024-11-10 03:19:40

该特定行是完全有效的 FreeBASIC 代码（即使您在 Dir() 之后保留美元符号，它也能工作）。我运行这个测试代码只是为了确保，它的工作原理与人们所期望的一样：

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

你介意放一大块代码（也许在pastebin上并将我链接到它）吗？问题的原因可能就在代码前面的某个地方。

That specific line is perfectly valid FreeBASIC code (it works even if you keep the dollar sign after Dir()). I ran this test code just to make sure, and it works as one would expect:

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

Would you mind putting a larger chunk of code (maybe on pastebin and link me to it)? The cause of the problem may be somewhere just earlier in your code.

回复收藏 0 原文

街角卖回忆 2024-11-10 03:19:40

在 FreeBASIC 中，字符串变量后的 $ 已被弃用，仅当您想使用与旧版 BASIC 兼容的程序时才

有用按照示例程序了解 DIR()

'This example show you how work if want verify the exist file.

Print DIR("lendir.bas") ' Dir("namefile.ext") show the name of file if exist

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

'or you can use this too

IF DIR("lendir.bas") = "" THEN 'If file not exist
    PRINT "file not exists"
   Else 
    PRINT "file exist"
END IF

BLOAD 的作用
从使用 BSave 创建的文件或兼容的 BMP 图像文件加载任意数据。

但是你必须确定原始代码是 QB 还是 QuickBASIC，因为有不同的方式来获取相同的东西

示例 fbc myprog.bas -lang qb 不适用于此示例
尝试用 fblite 代替 qb

In FreeBASIC the $ after String Variable is deprecated is usefull only if you want use for a compatible program with older BASIC

Follow the example program for understand what do the DIR()

'This example show you how work if want verify the exist file.

Print DIR("lendir.bas") ' Dir("namefile.ext") show the name of file if exist

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

'or you can use this too

IF DIR("lendir.bas") = "" THEN 'If file not exist
    PRINT "file not exists"
   Else 
    PRINT "file exist"
END IF

BLOAD
Loads arbitrary data from a file created with BSave, or a compatible BMP image file.

But you Have to be sure if the original code is QB or QuickBASIC because have different way to take the same things

Example fbc myprog.bas -lang qb doesnt work with this example
try fblite instead qb

回复收藏 0 原文

~没有更多了~