Delphi 11编译报错：常量对象无法作为var参数传递，如何兼容迁移自Delphi 7的代码？

这个错误是因为Delphi从较新版本开始（包括Delphi 11）对类型安全的检查更严格了——在Delphi 7中允许将常量数组传递给var参数，但Delphi 11禁止这种行为，因为var参数意味着函数可能修改传入的对象，而常量是只读的，这会导致潜在的内存安全问题。

根据你的代码情况，这里有几种解决方案，其中第一种是工作量最小、最符合类型安全原则的：

方案1：修改LinearApr函数的参数类型（推荐） #

从你的代码来看，LinearApr函数只是读取ap1和AV1的内容，并没有修改它们。所以你只需要把函数声明中的var参数改成const参数即可，这样既满足Delphi 11的类型检查，又不需要修改任何调用该函数的代码。

修改前的函数声明：

function LinearApr(var ap1,AV1; r:real; Vmax:integer):real;

修改后的函数声明：

function LinearApr(const ap1,AV1; r:real; Vmax:integer):real;

这个改动只需要做一次，所有调用LinearApr的地方都不需要调整，就能直接通过编译。

方案2：临时变量中转（如果无法修改LinearApr函数） #

如果LinearApr是第三方库中的函数，你无法修改它的声明，那么可以在调用前把常量数组复制到临时变量中，再将变量传递给函数：

// 在调用LinearApr的地方添加临时变量
var
  temp_arA: Atype;
  temp_v0a08: Atype;
begin
  // 把常量赋值给临时变量
  temp_arA := arA;
  temp_v0a08 := v0a08;
  // 传递临时变量给函数
  v0:=LinearApr(temp_arA,temp_v0a08,aro*1000,vmax);
  
  // 其他类似调用同理处理
end;

不过这种方法需要修改所有调用LinearApr的地方，工作量较大，只推荐在无法修改函数声明的情况下使用。

方案3：指针转换绕过检查（不推荐，仅作参考） #

如果你想最小化代码改动，且能确保LinearApr不会修改传入的参数，可以用指针转换的方式绕过类型检查：

首先在函数所在单元定义指针类型：

type
  PAtype = ^Atype;

然后调用时：

v0:=LinearApr(PAtype(@arA)^, PAtype(@v0a08)^, aro*1000, vmax);

注意：这种方法属于“hack”手段，违反了类型安全原则，如果后续LinearApr函数被修改为会修改参数，会导致不可预料的错误，所以仅在万不得已时使用。

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