Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.03.20;
Скачать: CL | DM;

Вниз

Как сделать, чтобы вместо sqrt(t) можно было произвольную функцию   Найти похожие ветки 

 
Strij   (2003-03-08 09:08) [0]

Вот фрагмент программы:
..............
procedure TForm1.raschetClick(Sender: TObject);
type functy = function(x:real):real;
var i,x,vvod: integer;

{$F+}
function koren(t:real):real;
begin
koren:=sqrt(t);

end;

{$F-}

begin

x:=25;
rez.value:=koren(x);

end;
.............

Как сделать, чтобы вместо sqrt(t) можно было произвольную функцию пихать из программы?

Это, что, надо анализатор, например, string`овой переменной делать с перегоном в ... во что?

Спасибо за ответ.
Strij


 
theodor_iv ©   (2003-03-08 09:28) [1]

function koren(f:functy; t:real):real;
begin
koren:=f(t);
end;



Страницы: 1 вся ветка

Текущий архив: 2003.03.20;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.018 c
1-64210
CRACKISH
2003-03-07 08:07
2003.03.20
Скриншот


14-64368
Senka
2003-03-05 16:21
2003.03.20
Инфа по программированию COM портов для внешних устройств


1-64060
Alex-21
2003-03-08 11:00
2003.03.20
Цвет шрифта


3-63958
Kurt_
2003-02-27 14:53
2003.03.20
если а одной транзакции (в Адо между BeginTransaction и CommitTra


3-63945
idz
2003-03-02 22:40
2003.03.20
Получение списка внешних ключей для таблицы Access