FPC编译报错：try标识符未找到问题排查与解决求助

问题根源 #

你遇到的问题核心在于Free Pascal默认启用Turbo Pascal兼容模式——这个模式是为了兼容古老的Turbo Pascal代码，并不支持Delphi风格的结构化异常处理（try..except块）。你的代码里用了Delphi的异常语法，所以编译器完全识别不了try这个标识符。

另外还要注意：代码里的ShowMessage是Delphi/VCL框架的GUI弹窗函数，在Linux控制台环境下的FPC默认没有这个函数，就算解决了try的问题，编译还是会因为找不到这个函数报错。

解决方法 #

有两种方式可以让编译器支持try..except，同时我们需要修复ShowMessage的问题：

方法1：在代码中添加编译指令切换模式

在代码最开头添加{$mode objfpc}或者{$mode delphi}（两者都支持异常处理：ObjFPC是FPC跨平台原生模式，Delphi模式更贴近Delphi语法），同时把ShowMessage替换成控制台输出的writeln。

修改后的完整代码：

{$mode objfpc}
program TriangleArea;
uses crt, sysutils;
type num = real;
var a, b, c, s, area : num;
begin
write('Enter lengths of 3 sides (separated by spaces): ');
try
  readln (a, b, c);
  s := (a + b + c)/2.0;
  area := sqrt(s * (s - a)*(s-b)*(s-c));
  writeln('Triangle area: ', area);
except
  on E: Exception do 
    writeln('Error: ', E.ClassName, LineEnding, E.Message);
end;
end.

这里用LineEnding代替了#13#10，它会自动适配当前系统的换行符（Linux下是#10），跨平台更友好。

方法2：编译时通过命令行参数指定模式

如果你不想修改代码，可以在编译时加上模式参数：

fpc -Mobjfpc triangle_area.pas

或者用Delphi模式：

fpc -Mdelphi triangle_area.pas

但同样需要把ShowMessage替换成writeln，否则还是会因为找不到这个函数报错。

补充说明 #

FPC的模式选择是为了兼顾兼容性和现代特性：

• Turbo Pascal模式：默认模式，兼容Turbo Pascal 7的语法，缺少很多现代特性（包括异常处理、类等）。
• ObjFPC模式：FPC的原生模式，支持跨平台开发，包含所有现代Pascal特性，推荐用于跨平台控制台程序。
• Delphi模式：兼容Delphi的语法，适合从Delphi迁移过来的代码，也支持异常处理。

内容的提问来源于stack exchange，提问作者rnso