добрый день! возможно ли такое: 1) имеется исходник кода, необходимо чтобы при его открытии он сам компилировался (не нажимая F9) (ВАЖНО чтобы он проверял TPU файлы привазаные к нему!!!!). 2) если сохранить этот файл в exe то при его запуске он компилировался и запускался (ВАЖНО чтобы он проверял TPU файлы привазаные к нему!!!!).
млин я не могу понять пример, я понимаю только где происходит ввод ф-ии а где выводится значение ф-ии не могу понять. вот скажем прога:
program Integrator; uses swexpr; var X,Y,Fxy:Real; F,Code:String; i,n:integer;
{$F+}
Function GetX(Code:longint):Real; begin GetX:=X; end;
Function GetY(Code:longint):Real; begin GetY:=Y; end;
{$F-}
begin
AddVariable('X',1); GetVariable:=GetX;
AddVariable('Y',2); GetVariable:=GetY;
repeat Writeln('введите ф-ию с использованеим x и y '); {надо ввести к примеруF=x+y) } Write('f(X,Y)='); Readln(F); if F='' then halt; Code:=CompileExpression(F); until not CompileError;
Fxy:=InterpreteExpression(Code);
end.
так шоли? чтобы ввести x и y надо:
AddVariable('X',1); GetVariable:=GetX;
AddVariable('Y',2); GetVariable:=GetY;
при таком раскладе он читает только y ((( тобишь считает x за y