Выполнение строки как кода в Delphi

[Asteroid]

Каким образом в Delphi можно реализовать выполнение строки (String) как код, или хотя бы перейти к функции с названием в переменной типа String?

[_SERGEYX_]

Меня тоже всегда интересовал этот вопрос. Для преобразования строки в формулу использую TCalcExpress. Работает отлично, указываем переменные, подставляем их значения... и вперед. Но это мелочи.
А возможно сделать такое...?
Например у меня в текстовом файле написано

aSumma:=Table1Summa.Value;
aProcentNDS:=Table1ProcentNDS.Value;
aItog:= aSumma / 100 * aProcentNDS;
ShowMessage(floattostr(aItog));

И далее

procedure TForm1.Button1Click(Sender: TObject);
var aSumma, aNDS, aItog: Double;
begin
//выполнить то, что написано в текстовом файле
end;

[Serge_Bliznykov]

Это возможно с использованием компонент.
Типа таких:
"Innerfuse Pascal Script III"
TPaxScripter
paxCompiler

[Asteroid]

Вот здесь можно скачать компонент PaxСompiler - позволяет выполнять строки во время выполнения программы (из txt файла в том чиле). Там же есть и дока к нему, версии компонента для Delphi от 5 до 2007...

Спасибо Serge_Bliznykov за наводку!

[_SERGEYX_]

И тебе Спасибо за ссылку. Проверил. Работает. Круто.

[JTG]

А как насчёт скорости? В бинарные скрипты позволяет переводить? А то я тут как всегда амбициозный прект задумал
---
вооооо ))
http://www.remobjects.com/page.asp?id={9A30A672-62C8-4131-BA89-EEBBE7E302E6}

[Asteroid]

Для создания бинирных файлов есть функция TPaxCompiler.Compile, а для исользования TPaxProgram компонент (мотоды LoadFromFile потом Run и тд.) Но реально скрость не засекал - примерчики простнькие так все летает, а как на деле - кто его знает...

[DAV88]

А может кто-нить подскажет как с помощью PaxСompiler вставить строку как код?а то че-то не могу разобраться в английской инструкции.Мне просто нужно вставить функцию,которая будет введена в эдите вставить как код.

[Квэнди]

Пользуйтесь RTTI и динамической загрузкой DLL при нормальдном проектировании и документировании требований к библиотекам в подобном изврате потребности не возникнет )

[Asteroid]

2 DAV88:

Можно так...

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, PaxCompiler, StdCtrls, PaxProgram;

type
  TForm1= class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    PaxCompiler1: TPaxCompiler;
    PaxPascalLanguage1: TPaxPascalLanguage;
    PaxProgram1: TPaxProgram;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  str:string;
begin
  str:='Say '; // переменная для примера

  paxCompiler1.Reset;  // Готовим PaxCompiler
  paxCompiler1.RegisterLanguage(PaxPascalLanguage1); // Скрипт будет на Паскале

  // Теперь нужно зарегистрировать все процедуры, переменные, функции и т.д. (точнее указатели на них)
  // которые мы будем ипользовать в скрипте
  paxCompiler1.RegisterHeader(0, 'procedure ShowMessage(const Msg: string);',@ShowMessage);
  // Если процедура или функция, то RegisterHeader

  paxCompiler1.RegisterVariable(0,'str:string;',@str);
  // Если переменная, константа то RegisterVariable

  paxCompiler1.AddModule('main',PaxPascalLanguage1.LanguageName);
  // Добовляем новый модуль (название произвольное)

  // и собственно сам код - строка за строкой...
  paxCompiler1.AddCode('main','begin');
  paxCompiler1.AddCode('main',Edit1.Text);
  paxCompiler1.AddCode('main','end.');

  if  paxCompiler1.Compile(paxprogram1) then // компилируем
  begin                                      // запускаем!
    PaxProgram1.Run;
  end
  else
    ShowMessage('Error compile');
end;

end.

Юзай