Калькулятор Опции

[Наська]

Чего-то не понимаю...где косяк?

procedure TForm1.Button32Click(Sender: TObject); {кнопка результат} 
begin
  Label8.Caption := IntToStr(SuperFactorial);
end;

Function Factorial(y: integer): Longint;
var
  Edit1: TEdit;
begin
  y := StrToInt(Edit1.Text);
  if y = 0 then factorial := 1
  else factorial := y*Factorial((y-1));
end;

Function SuperFactorial(y: integer): LongInt;
var
  Edit4: TEdit;
begin
  y := StrToInt(Edit4.Text);
  if y = 0 then SuperFactorial := 1
  else SuperFactorial := Factorial(y)*SuperFactorial((y-1));
end;

М

Теги, Наська, теги!! Lapp

[Malice]

Label8.Caption := IntToStr(SuperFactorial);

А где параметр у функции SuperFactorial ? Да и сами функции надо выше процедуры 1Button32Click написать.

[Наська]

В смысле параметр функции, что ты имеешь ввиду?
Чего дописать-то ё-птыч?

[Malice]

В смысле параметр функции, что ты имеешь ввиду?
Чего дописать-то ё-птыч?

Function SuperFactorial(y: integer): LongInt; <- в функции есть

Label8.Caption := IntToStr(SuperFactorial(?)); <- а в вызове нет

[Наська]

Ой !
Точно-точно

спасибо

[Наська]

а знаешь, не робит