sum函数的问题。

aaa

刚刚在学习论坛中的帖子：练习题：成绩统计（原来Lazarus的编程效率可以很高的）

发现一个问题。是sum函数的。rtl帮助文档中关于sum函数有一个例子：
Program Example44;

{ Program to demonstrate the Sum function. }

Uses math;

Var
  I : 1..100;
  ExArray : Array[1..100] of Float;

begin
  Randomize;
  for I:=low(ExArray) to high(ExArray) do
    ExArray:=(Random-Random)*100;
  Writeln('Max     : ',MaxValue(ExArray):8:4);
  Writeln('Min     : ',MinValue(ExArray):8:4);
  Writeln('Sum     : ',Sum(ExArray):8:4);
  Writeln('Sum (b) : ',Sum(@ExArray[1],100):8:4);
end.

但该代码倒数第二句在lazarus中编译失败，提示：
Can't determine which overloaded function to call

这个是什么问题？我用的是0.9.30版本。

aaa

另外，关于StringReplace函数 ，我没有找到其中关于替换Pattern的详细介绍。

有人帮忙说说吗？

zeus-chu

Sum() 的這個 example (http://www.freepascal.org/docs-html/rtl/math/sum.html) 我这裡沒遇到问题, FPC 版本 2.4.2。 看错误消息应该是有超过一个 Sum() 被定义, 而且 signature 相同, 所以编译器不知道要调用哪个。 你可以改用 Math.Sum(ExArray) 试一下。

zeus-chu

StringReplace() 那个 Google 一下 stringreplace site:freepascal.org 就找到了, 裡面说的很清楚。

aaa

sum问题我解决了。
需要加一个显示的类型转换：
Writeln('Sum (b) : ',Sum(PFloat@ExArray[1]）,100):8:4);
我猜应该是编译器参数设置问题。但没有能力研究。

另外我突然发现，我贴出的代码有问题。for to do后面应该是：
ExArray［i］:=(Random-Random)*100;
不知道为什么，英文的中括号不能显示。

aaa

我真没有看到那个页面是详细说明替换Pattern的，只有函数本身的简单介绍。

zeus-chu

不知道为什么，英文的中括号不能显示。

半角括号裡的 i 是个 BBCode 标签, 所以後面的字都变成斜体的了。

我真没有看到那个页面是详细说明替换Pattern的，只有函数本身的简单介绍。

按照 http://www.freepascal.org/docs-h ... /stringreplace.html, StringReplace() 的 OldPattern 和 NewPattern 分别是要查找的子串和要替换为的串 (StringReplace searches the string S for occurrences of the string OldPattern and, if it is found, replaces it with NewPattern)。