компиляция Exe-шника Опции

[Георгий]

добрый день!
возможно ли такое:
1) имеется исходник кода, необходимо чтобы при его открытии он сам компилировался (не нажимая F9) (ВАЖНО чтобы он проверял TPU файлы привазаные к нему!!!!).
2) если сохранить этот файл в exe то при его запуске он компилировался и запускался (ВАЖНО чтобы он проверял TPU файлы привазаные к нему!!!!).

[volvo]

Ты сообщения мои вообще читаешь? Я же написал:

За исключением того, что Integer надо заменить на LongInt

, ну так замени:

{$F+}
Function GetX(Code:LongInt):Real; { <--- Изменить }
begin
 GetX:=X;
end;
{$F-}

[Георгий]

млин я не могу понять пример, я понимаю только где происходит ввод ф-ии а где выводится значение ф-ии не могу понять.
вот скажем прога:

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

что нужно исправить чтобы он читал и x и y ??

Сообщение отредактировано: Георгий - 8.01.2009 14:36