Question

我正在写长数字的红细胞。这是一个用于添加longint长二进制数字的函数。我需要输出函数内的和，来调试它。如果不创建新变量，我怎么能这样做呢？

function add(var s1,s2:bindata;shift:longint):bindata;
var l,i:longint;
    o:boolean;
begin
    writeln(s1.len,' - ',s2.len);
    o:=false;
    l:=max(s1.len,s2.len);
    add.len:=0;
    for i:=1 to l do begin
        if o then Begin
            if s1.data[i+shift] then Begin
                if (s2.data[i]) then add.data[i+shift]:=true
                Else add.data[i+shift]:=false;
            End
            else if s2.data[i] then add.data[i+shift]:=false
            else Begin
                add.data[i+shift]:=true;
                o:=false;
            End;
        End
        Else Begin
            if s1.data[i+shift] then Begin
                if s2.data[i] then 
                Begin
                    add.data[i+shift]:=false;
                    o:=true;
                End
                Else add.data[i+shift]:=true;
            End
            else if s2.data[i] then add.data[i+shift]:=true
            else add.data[i+shift]:=false;
        End;
        output(add);  //Can I output a variable?
    end;
    add.len:=l;
    if o then Begin
        inc(add.len);
        add.data[add.len]:=true;
    End;
end;

Answer 1

您正在函数结果变量中累积函数的结果，这通常很好，但是使用过时的样式，并且导致您正面临的问题。您正在尝试报告函数结果的中间值，为此，您尝试引用函数的名称add。但是，当您这样做时，编译器会将其解释为尝试报告函数本身，而不是此函数的特定调用的预期返回值。如果output被定义为接受函数地址，您将获得函数的地址;否则，你会收到编译错误。

如果您的编译器提供某种公共语言扩展，那么您应该使用隐式Result变量来引用中间返回值，而不是继续通过函数名称引用它。由于Result是隐式声明的，因此您不必创建任何其他变量。编译器自动识别Result并将其用作函数返回值的别名。只需找到您在函数中编写add的每个位置，并将其替换为Result。例如：

if o then begin
  Inc(Result.len);
  Result.data[Result.len] := True;
end;

Turbo Pascal，Free Pascal，GNU Pascal和Delphi都支持隐式Result变量，但如果你设法遇到不提供的那个编译器扩展，那么你别无选择，只能声明另一个变量。您可以将其命名为Result，然后在最后添加一行，如下所示：

function add(var s1, s2: bindata; shift: longint): bindata;
var
  l, i: longint;
  o: boolean;
  Result: bindata;
begin
  {
    Previous function body goes here, but with
    `add` replaced by `Result`
  }
  { Finally, append this line to copy Result into the
    function's return value immediately before returning. }
  add := Result;
end;

帕斯卡尔。指定使用变量而不是具有相同名称的函数＆gt;

1 个答案: