Использование значения Edit в функции.

[sashaslam]

есть функция в програмном модуле

function Tform1.F(x:real):real;
Begin
F:= sin (x) ;


End;

дальше в программе f используется при построении графика. как сделать чтоб само тело функции можна было изменять, например через edit.... и значение с едита присваивалось F...
F := StrToFloat (Edit1.text) - так не верно..

[SERG1980]

так и вызывайте

form1.F(StrToFloat(Edit1.Text));

[Marsel737]

var
  a: integer;
begin
  a := F(StrToFloat(Edit1.Text));

[sashaslam]

код :

private
{ Private declarations }
public
function F(x:real):real;
Procedure Extrem1(Xmax,Xmin:real; Var Ymin:real);
Procedure Extrem2(Xmax,Xmin:real; Var Ymax:real);
{ Public declarations }
end;

var
Form1: TForm1;

implementation
Const e=1e-4;//точность одна тысячная
var Xmax,Xmin,Ymax,Ymin:real;
ST : string;
{$R *.DFM}
function Tform1.F(x:real):real;
Begin
F:= sin (x) ;
End;


//поиск минимума функции
Procedure TForm1.Extrem1(Xmax,Xmin:real; Var Ymin:real);
Var x,h:real; j,n:integer;
Begin


n:=10;
Repeat
x:=Xmin;
n:=n*2;
h:=(Xmax-Xmin)/n;
Ymin:=F(Xmin);
For j:=1 to n do begin
if f(x)<Ymin then Ymin:=f(x);
x:=x+h;
end;
Until abs(f(Ymin)-f(Ymin+h))<e;
End;

//поиск максимума функции
Procedure TForm1.Extrem2(Xmax,Xmin:real; Var Ymax:real);
Var x,h:real; j,n:integer;
Begin


n:=10;
Repeat
x:=Xmin;
n:=n*2;
h:=(Xmax-Xmin)/n;
Ymax:=F(Xmin);
For j:=1 to n do begin
if f(x)>=Ymax then Ymax:=f(x);
x:=x+h;
end;
Until abs(f(Ymax)-f(Ymax+h))<e;
End;


procedure TForm1.Button1Click(Sender: TObject);
var x,y:real;
PX,PY:longInt;
begin


//здесь необходимо указать диапазон изменения x
//Xmax:=8*pi;
//Xmin:=0;
  Xmax:= strToFloat (edit3.Text);
  Xmin := strTofloat (edit2.Text);


//вычисляем экстремумы функции
Extrem1(Xmax,Xmin,Ymin);
Extrem2(Xmax,Xmin,Ymax);
edit4.Text := floatToStr (Ymin);
edit5.Text := floatToStr (Ymax);

//рисуем график функции
Image1.Canvas.MoveTo(0,Image1.height div 2);
for PX:=0 to Image1.Width do
begin
x:=Xmin+PX*(Xmax-Xmin)/Image1.Width;
y:=F(x);
PY:=trunc(Image1.Height-(y-Ymin)*Image1.height/(Ymax-Ymin));
image1.Canvas.Pixels[PX,PY]:=clBlack;
Image1.Canvas.LineTo(PX,PY);
end;
end;
end.

так как указано више не работает

нужно вводить функцию через эдит

From Stilet: Код попрошу оформлять кнопкой #