dann sieht das ganze jetzt so aus
Delphi-Quellcode:
function Phythagoras(X, Y: double): double;
var hypothenuse: double;
begin
hypothenuse:=sqrt(x*x+y*y);
result:=hypothenuse;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
phythagoras;
end;
nur wenn ich phythagoras schreibe bekomm ich einen Fehler das nicht genug parameter zur Verfügung stehen