Обращение к функции, введенной в текстовое окно

[Лена]

Здравствуйте, пожалуйста подскажите,как на форме создать текстовое окно,в которое вводиться функция (sin(x),sqr(x) и т.д.), и как к ней обратиться в тексте программы.

[Virtson]

обработка любой функции ?
или выбор из числа предопределенных - радиобатоны положить..

[Лена]

к сожалению, я не понимаю, что такое радиобатоны..
функция может быть sqr(x),abs(x),sin(x),cos(x)

[Virtson]

  str:= Copy(Edit.text, 1, 3);
  if str='abs' then ...
  else if str='sqr' then ...
  else if str='sin' then ...
  else ...

где str: string;

[zetrix]

str:= Copy(Edit.text, 1, 3);
if str='abs' then ...
else if str='sqr' then ...
else if str='sin' then ...
else ...

может лучше тогда case использовать?

[Virtson]

вобще-то, для string нельзя применять Case

[Virtson]

 ops: array[1..12] of string[3]= (
 '/', '*', '-', '+', '^', 'exp', 'ln', 'log', 'sin', 'cos', 'tan', 'atn' );
begin
  str:= Copy(Edit.text, 1, 3);
  for i:= 1 to 12 do
    if ops[i]=str then break;

  Case i of   
    1: ;
    2: ;
    else ..;
  end;
end;

[zetrix]

вобще-то, для string нельзя применять Case

Блин чё-то я прогнал... Недавно пример делал, там char - всё ок, ну думал стринг тож не проблема.