Показать сообщение отдельно
Старый 24.02.2009, 23:46   #21
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Довольно давно в пакетхаке есть функция для вызова функции из другого скрипта с возвратом результата
Код:
function CallSF(ScriptName:String;FunctionName:String;Params:array of variant):variant
пример использования

delphi Код:
//getvars.txt function getVar (s: string; i: integer): variant; const x = 5; begin   Result := 'ваш '+ s +' = '+ IntToStr (i * x); end; begin end.
delphi Код:
//myscript.txt procedure Init; var res: variant; begin    res := CallSF ('getVars', 'getVar', ['SP', 10]);    sendMSG(res); end; begin end.
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума