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!
|