level 4
var t:text;
begin
assign(t,'1.txt');
try reset(t);close(t);
except
writeln('aaa');
end;
end.
实际代码不是这样的 但其他地方应该没有影响
FPC编译提示：error:Identifier not found "try"
2014年01月28日 05点01分
1
level 14
try是Delphi的关键词，不属于Object-Oriented Extensions to Pascal语法规范
解决方法：
开头输入{$Mode Delphi}
如：
program ex(input,output);
{$Mode Delphi}
var t:text;
begin
assign(t,'1.txt');
try reset(t);close(t);
except
writeln('aaa');
end;
end.
2014年01月28日 08点01分
2
level 4
感谢楼上
但是又有个不知道是什么的问题出现了
function len(x:integer):integer;
begin
len:=1;
while x div 10>0 do
begin
x:=x div 10;
inc(len);
end;
end;
和刚才的那个在同一个 程序里 之前 没try的时候编译都能过 现在过不了了
错误信息：Error:Variable identifier expected
错误提示光标停留在 inc(len)的“)”
2014年01月28日 10点01分
3
