delphi – Free Pascal中的函数Copy()

发布时间：2020-12-15 04:30:21 所属栏目：大数据来源：网络整理

导读：Delphi允许3个版本的Copy功能： function CopyTest(const S: string): string;begin Result:= Copy(S,1,5); Result:= Copy(S,1);// Result:= Copy(S); // not allowed for strings,allowed for dyn arraysend; FreePascal似乎只编译第一个(3-arg)版本;对于其

Delphi允许3个版本的Copy功能：

function CopyTest(const S: string): string;
begin
  Result:= Copy(S,1,5);
  Result:= Copy(S,1);
//  Result:= Copy(S);   //  not allowed for strings,allowed for dyn arrays
end;

FreePascal似乎只编译第一个(3-arg)版本;对于其他人我有编译时错误

Error: Wrong number of parameters specified for call to "$fpc_ansistr_copy"

我是否遗漏了一些FPC编译器开关或Free Pascal中没有Copy过载？

解决方法

‘copy’节点生成器代码在 pinline.pas FPC源的inline_copy函数中.仅对于动态数组,变体1和3有效(在变体3的情况下,生成将第二和第三参数传递给fpc_dynarray_copy的代码).对于所有其他情况(ansi字符串,宽字符串,unicode字符串,char(*)和短字符串),需要3个参数(编译器生成对其中一个复制函数的调用(例如astrings.pas中的fpc_ansistr_copy),而不检查参数,因为被调用的函数没有重载或默认参数,需要完全匹配参数).没有涉及开关/指令.

(*)这个有点奇怪,它返回自身或”的短串.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!