Можно ли как-нибудь загнать текст "x+3" в функцию?

[TwiX]

Т.е. что б получилась функция от х

function f(x:integer):integer;
begin
 result:=x+3;
end;

Парсер вроде не такая уж проблема как программное создание функции)

[AlDelta]

Так и создавайте парсер, в чем проблема?

[TwiX]

Проблема во времени) Например что бы построить график от функции f(x:integer):integer, нужно в десятки раз меньше времени чем, строить его, вызывая для каждой точки парсер =\

[AlDelta]

А функцию, в конечном итоге, не для каждой точки будете вызывать?

[TwiX]

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

[TwiX]

Написал простенький парсер - как я и говорил. Что бы пройти парсеру от 0 до 1000000 потребовалось 2090 мс, а функции - 0 мс =)

[Пепел Феникса]

таких тем уже тысячи наверно.
есть много компонентов для выполнения строки..

Написал простенький парсер - как я и говорил. Что бы пройти парсеру от 0 до 1000000 потребовалось 2090 мс, а функции - 0 мс =)

покажи свой парсер, посмотрим что ты там наворотил=)

[TwiX]

Вот) Пятиминутный, совсем бональный (знает только цифры и + - ):

function tform1.pars(s: string; x: Integer):integer;
var
  i,tmp, op,res:Integer;
begin
  res:=0;
  i:=1;
  op:=0;
  while i<=length(s) do
  begin
    tmp:=-999;
    case s[i] of
      '+': op:=0;
      '-': op:=1;
      '0'..'9': tmp:=StrToInt(s[i]);
      'x': tmp:=x;
    end;
    if tmp<>-999 then
    begin
      if op=0 then
        res:=res+tmp
      else
        res:=res-tmp;
    end;
    inc(i);
  end;
  Result:=res;
end;

В принципе может кому-нибудь пригодится=)

Добавлено:
В принципе, вот вся прога (в button2click меняем f(x) на pars и видим разницу во времени):

unit main;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button2: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    function f(x:integer):integer;
    function pars(s:string; x:integer):integer;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit3.Text:=IntToStr(pars(edit1.Text, strtoint(edit2.Text)));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  x:integer;
  t1,t2:Cardinal;
begin
  t1:=GetTickCount;
  for x := 0 to 1000000 do
  begin
    f(x);
    //pars(Edit1.Text, x);
  end;
  t2:=GetTickCount;
  Label1.Caption:='Time used: '+IntToStr(t2-t1);
end;

function tform1.pars(s: string; x: Integer):integer;
var
  i,tmp, op,res:Integer;
begin
  res:=0;
  i:=1;
  op:=0;
  while i<=length(s) do
  begin
    tmp:=-999;
    case s[i] of
      '+': op:=0;
      '-': op:=1;
      '0'..'9': tmp:=StrToInt(s[i]);
      'x': tmp:=x;
    end;
    if tmp<>-999 then
    begin
      if op=0 then
        res:=res+tmp
      else
        res:=res-tmp;
    end;
    inc(i);
  end;
  Result:=res;
end;

function tform1.f(x: Integer):integer;
begin
  Result:=x+3;
end;
end.

[Пепел Феникса]

function PpPars(S:String;x:integer):integer;
type TOperation=(opMinus,opPlus);
var i:integer;
    t:integer;
    Operation:TOperation;
function Add(OP:TOperation;Res,x:integer):integer;
begin
 case OP of
  opMinus:Result:=Res-x;
  opPlus:Result:=Res+x;
  else Result:=Res;
 end;
end;
begin
 i:=1;
 Operation:=opPlus;
 t:=0;
 Result:=0;
 while i<=Length(s) do
  begin
   case s[i] of
    '-':begin
         Result:=Add(Operation,Result,t);
         Operation:=opMinus;
         t:=0;
        end;
    '+':begin
         Result:=Add(Operation,Result,t);
         Operation:=opPlus;
         t:=0;
        end;
    '0'..'9':t:=(t*10)+StrToInt(s[i]);
    'x','X':t:=x;
   end;
   inc(i);
  end;
 Result:=Add(Operation,Result,t);
end;

вот посмотри мой вариант

[TwiX]

Разве не то же самое?)
Я писал это только, что бы убедится в разнице во времени =\
Так всё-таки можно ли создать программно функцию?