You have declared a function, but have not specified a return type.
program Produce; function Sum(A: array of Integer); var I: Integer; begin Result := 0; for I := 0 to High(A) do Result := Result + A[I]; end; begin end.
Here Sum is meant to be function, we have not told the compiler about it.
program Solve; function Sum(A: array of Integer): Integer; var I: Integer; begin Result := 0; for I := 0 to High(A) do Result := Result + A[I]; end; begin end.
Just make sure you specify the result type.
Copyright(C) 2009 Embarcadero Technologies, Inc. All Rights Reserved.
|
What do you think about this topic? Send feedback!
|