Вычисление значения функции, заданной в виде строки

[Pavleg001]

имеется код:

function f(x: double): double;
begin
f:=cos(x);
end;

как заменить значение функции f на текст,вводимый в edit?
пытался так f:=StrToFloatDef(form1.Edit1.Text,c os(x)); не получается так как в edit введено не число, а формула.
Как быть? помоги!























<a href=http://ddl.name/ >download video</a>

[Stilet]

Достань компонент TCalc или другой эвалюатор и им рассчитывай формулу в Эдите
Плюс от меня пример эвалюатора на платформе Экзеля:

unit Unit1;

interface

uses          comobj,
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var   sh,wb,XL:OleVariant;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 XL := CreateOleObject('Excel.Application');
 wb:=XL.Workbooks.Add;
 sh:=wb.WorkSheets[1];


end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   xl.quit;
 xl:=Unassigned;
 wb:=Unassigned;
 sh:=Unassigned;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then begin
     sh.range['A1'].formula:='='+Edit1.Text;
     caption:=sh.range['a1'].text;
end;
end;

end.

Может пригодится.

[RIO]

Можно еще юзать парсер

function f(x: string): double;
begin
x := здесь вызвать функцию парсера, что бы получить одно число
f:=cos(x);
end;

[RUSt88]

юзай стеки и очереди