delphi – Free Pascal中的函数Copy()

前端之家收集整理的这篇文章主要介绍了delphi – Free Pascal中的函数Copy()前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
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),而不检查参数,因为被调用函数没有重载或默认参数,需要完全匹配参数).没有涉及开关/指令.

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

猜你在找的Delphi相关文章