Änder am besten den Namen der Function oben in der
Unit, sonst musst du sie überladen.
(Natürlich musst du den Namen dann überall ändern, sowohl in der Implementation
Delphi-Quellcode:
function summiere(n:integer): integer;
begin
if n=1 then result:=1
else result:=n+summiere(n-1)
end;
als auch im Aufruf
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var n,erg:integer;
begin
n:=strtoint(edit1.text);
erg:=summiere(n);
edit2.text:=inttostr(erg);
end;
)
edit: verflixtes doitsch
