Esiste un buon linguaggio di scripting simile a Pascal per Delphi?

Question

Sto cercando un buon motore di scripting gratuito per Delphi. Voglio aggiungere script ad un'applicazione in modo che possa scrivere piccoli script di test. In particolare ho bisogno: la sintassi

• Pascal-come
• corrente (ho guardato RemObjects Pascal Scripting ma è "obsoleto", secondo un post che ho visto).

Non ho bisogno del supporto completo della lingua, solo le basi. Ho visto questo: https://stackoverflow.com/questions/226135/scripting-library-for-delphi ma suppongo che le cose siano andate un po 'da allora.

Tutto ciò che voglio essere in grado di fare è aggiungere un componente memo al mio programma, e in fase di esecuzione aggiungere un frammento di origine al memo e fare clic su un pulsante go. Voglio che lo script sia in grado di accedere alle variabili e alle funzioni dell'applicazione.

Qual è il percorso più semplice per realizzare questo? Segue un esempio di programma.

program Project31; 

uses 
    Forms, 
    Unit36 in 'Unit36.pas' {Form36}; 

{$R *.res} 

begin 
    Application.Initialize; 
    Application.CreateForm(TForm36, Form36); 
    Application.Run; 
end. 

.

unit Unit36; 

interface 

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

type 
    TForm36 = class(TForm) 
    Button1: TButton; 
    Memo1: TMemo; 
    procedure Button1Click(Sender: TObject); 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

var 
    Form36: TForm36; 

implementation 

{$R *.dfm} 

procedure RoutineInMyApplication ; 

begin 
ShowMessage ('Hello from my Application') ; 
end ; 

procedure TForm36.Button1Click(Sender: TObject); 
begin 
//ExecuteScript (Memo1.Lines) ; 
end ; 

end. 

.

object Form36: TForm36 
    Left = 0 
    Top = 0 
    Caption = 'Form36' 
    ClientHeight = 174 
    ClientWidth = 391 
    Color = clBtnFace 
    Font.Charset = DEFAULT_CHARSET 
    Font.Color = clWindowText 
    Font.Height = -11 
    Font.Name = 'Tahoma' 
    Font.Style = [] 
    OldCreateOrder = False 
    PixelsPerInch = 96 
    TextHeight = 13 
    object Button1: TButton 
    Left = 300 
    Top = 72 
    Width = 75 
    Height = 25 
    Caption = 'Button1' 
    TabOrder = 0 
    OnClick = Button1Click 
    end 
    object Memo1: TMemo 
    Left = 8 
    Top = 21 
    Width = 241 
    Height = 145 
    Lines.Strings = (
     'begin' 
     'ShowMessage ('#39'Hello world'#39') ;' 
     'CallSomehow (RoutineInMyApplication) ;' 
     'end.' 
     ' ') 
    TabOrder = 1 
    end 
end 

Answer 1

Prova biblioteca dwscript che è attualmente mantenuto da Eric Grange.

Answer 2

Jedi JVCL include anche TJvInterpreter che è un interprete molto leggero (piccolo), ma con funzioni molto più limitate di dwscript.

Per molto piccolo (formule immesse dall'utente o semplici attività di elaborazione stringa e numeriche) JvInterpreter ha funzionato abbastanza bene per me.

Answer 3

Pochi anni fa lavoravo con Pax Compiler in combinazione con questo Forms Editor.

Answer 4

FastScript da FastReport (lo stack non consente di fornire un collegamento). Include PascalScript, C++ Script, JScript e BasicScript. PascalScript sembra esattamente quello che chiedi.

Answer 5

Provare a incorporare Lua. Vedere Lua 5.1 for Delphi per esempio.