Delphi процедура > функция

[Nickolai47]

Помогите переделать процедуру в функцию!

procedure TForm1.RaschetClick(Sender: TObject);
var
i:integer;
res:real;
n:integer;
begin
n:=StrToint(NEdit.text);
res:=1.1;
 For i:=2 to n do
  Begin
   res:=res*(1+i/10);
  End;
 result.text:=FloatToStr(res);
end;
end.

да да я глуп...

[Serge_Bliznykov]

function TForm1.Raschet : real;
var
i:integer;
res:real;
n:integer;
begin
  n:=StrToInt(NEdit.text);
  res:=1.1;
  For i:=2 to n do
     res:=res*(1+i/10);
  Raschet:=res;
end;

[Nickolai47]

Сообщение от Serge_Bliznykov

function TForm1.Raschet : real;
var
i:integer;
res:real;
n:integer;
begin
  n:=StrToInt(NEdit.text);
  res:=1.1;
  For i:=2 to n do
     res:=res*(1+i/10);
  Raschet:=res;
end;

возможно я не так выразился, но мне надо чтоб функцию можно было бы вызвать в процедуре которая в свою очередь берет число из едита

[Sciv]

function TForm1.Raschet(n: integer) : real;
var
i:integer;
res:real;
begin
  res:=1.1;
  For i:=2 to n do
     res:=res*(1+i/10);
  Raschet:=res;
end;

procedure TForm1.RaschetClick(Sender: TObject);
var r: real;
begin
  r:=Raschet(StrToInt(NEdit.text));
end;

[Serge_Bliznykov]

кстати, если использовать пример (с) Sciv, то функцию Rashet можно не делать методом формы.
вот так написать и тоже будет компилироваться и работать:

function Raschet(n: integer) : real;
var
  i:integer;
  res:real;
begin
  res:=1.1;
  For i:=2 to n do
     res:=res*(1+i/10);
  Raschet:=res;
end;

procedure TForm1.RaschetClick(Sender: TObject);
var r: real;
begin
  r:=Raschet(StrToInt(NEdit.text));
end;