Question

求解lazarus里关于文件的简单问题

在lazarus里写了段很简单的代码：
从begin开始贴上：
begin
assign(input,'F:\machine.in');
assign(output,'F:\machine.out');
reset(input);
rewrite(output);
......
后面省略，然后运行，顺利编译，然后问题来了，lazarus提示：Project1.exe raised exception class "RunError(03)"然后代码编辑器里箭头指向 reset(input);这一行， 之前已经在对应文件夹里建立了相应的xx.in和xx.out文件。求高手解释呀。软件是lazarus 0.9.30。

Answer 1

反驳一下楼上两位：
一楼纯粹扯淡。
二楼 我记得input output是pascal内置的文件 就是标准读入输出 不用定义的。事实上我也都是这么写的。类型可以写成text，至于textfile我没有见过。RunError(3)是写文件错误，楼主你看看你的machine.out有没有写保护，或者正在被打开之类的，再试试吧。代码应该是没有问题的。
楼主你可以去看看FreePascal安装目录/doc/user.pdf 里面有条目Runtime Error 包括了基本的运行时错误 崩的时候查查很方便的。

Answer 2

应该这样写：
var
input,output:textfile;
begin
assignfile(input,'F:\machine.in');
assignfile(output,'F:\machine.out');
reset(input);
rewrite(output);
......
end;

Answer 3

要这样写

Type

node2 = ^node;

node = record
num: integer;
next: node2;
end;

Pascal规定必须先定义后使用，但是指针类型有一个特例，就是可以递归定义。一般这样来建立链表