Strings als Anweisung übergeben

[Pretoria]

Hi,

gibt es in Delphi die Möglichkeit der Anwendung strings als Anweisung zu übergeben?

z.b.

var blub: string;
begin
blub:='close;';
blub
end;



oder vielleicht eine ähnliche Möglichkeit?


Gruß

[mkinzler]

Schau mal nach einem Pascal Interpreter

[Meflin]

Pascal Script 3 von RemObjects dürfte genau das sein was du suchst, ist High Quality und umsonst ;)
http://www.remobjects.com/page.asp?id={9A30A672-62C8-4131-BA89-EEBBE7E302E6}

btw: Herzlich wilkommen in der DP :dp: :party:

[Pretoria]

das installiern klappt nich, bzw das einbinden der packages

"Datei dbrtl70.bpl wurde nicht gefunden, neuinstallation kann das Problem beheben"


aber trotzdem dankeschön :)

edit: ups dbrtl70.bpl nich dp

[mkinzler]

Welche Delphiversion hast du den?

[Pretoria]

Delphi 7 Personal

[mkinzler]

Dieser fehlt die Datenbankunterstützung (dbrtl70.bpl). Du kannst versuchen Abhängigkeit aus dem Package entfernen indem du dbrtl unter requires und uPSR_DB unter contains löschst.

[Pretoria]

das klappt leider nich

[mkinzler]

Kommt ein Fehler?

[Pretoria]

ja der gleiche wie vorher auch

[mkinzler]

Package:

Delphi-Quellcode:

package PascalScript_Core_D7;

{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES ON}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'RemObjects Pascal Script - Core Package'}
{$DESIGNONLY}
{$IMPLICITBUILD OFF}

requires
  rtl,
  vcl
  //dbrtl;

contains
  uPSC_extctrls in 'uPSC_extctrls.pas',
  uPSC_forms in 'uPSC_forms.pas',
  uPSC_graphics in 'uPSC_graphics.pas',
  uPSC_menus in 'uPSC_menus.pas',
  uPSC_std in 'uPSC_std.pas',
  uPSC_stdctrls in 'uPSC_stdctrls.pas',
  uPSCompiler in 'uPSCompiler.pas',
  uPSComponent in 'uPSComponent.pas',
  uPSComponent_COM in 'uPSComponent_COM.pas',
  uPSComponent_Controls in 'uPSComponent_Controls.pas',
  uPSComponent_DB in 'uPSComponent_DB.pas',
  uPSComponent_Default in 'uPSComponent_Default.pas',
  uPSComponent_Forms in 'uPSComponent_Forms.pas',
  uPSComponent_StdCtrls in 'uPSComponent_StdCtrls.pas',
  uPSDebugger in 'uPSDebugger.pas',
  uPSDisassembly in 'uPSDisassembly.pas',
  uPSPreProcessor in 'uPSPreProcessor.pas',
  uPSR_buttons in 'uPSR_buttons.pas',
  uPSR_classes in 'uPSR_classes.pas',
  uPSR_comobj in 'uPSR_comobj.pas',
  uPSR_controls in 'uPSR_controls.pas',
  uPSR_dateutils in 'uPSR_dateutils.pas',
  //uPSR_DB in 'uPSR_DB.pas',
  uPSR_dll in 'uPSR_dll.pas',
  uPSR_extctrls in 'uPSR_extctrls.pas',
  uPSR_forms in 'uPSR_forms.pas',
  uPSR_graphics in 'uPSR_graphics.pas',
  uPSR_menus in 'uPSR_menus.pas',
  uPSR_std in 'uPSR_std.pas',
  uPSR_stdctrls in 'uPSR_stdctrls.pas',
  uPSRuntime in 'uPSRuntime.pas',
  uPSUtils in 'uPSUtils.pas',
  uPSC_buttons in 'uPSC_buttons.pas',
  uPSC_classes in 'uPSC_classes.pas',
  uPSC_comobj in 'uPSC_comobj.pas',
  uPSC_controls in 'uPSC_controls.pas',
  uPSC_dateutils in 'uPSC_dateutils.pas',
  //uPSC_DB in 'uPSC_DB.pas',
  uPSC_dll in 'uPSC_dll.pas',
  PascalScript_Core_Reg in 'PascalScript_Core_Reg.pas';

end.

Delphi-Quellcode:

unit PascalScript_Core_Reg;

{----------------------------------------------------------------------------}
{ RemObjects Pascal Script
{
{ compiler: Delphi 2 and up, Kylix 3 and up
{ platform: Win32, Linux
{
{ (c)opyright RemObjects Software. all rights reserved.
{
{----------------------------------------------------------------------------}

{$I PascalScript.inc}

interface

{$R PascalScript_Core_Glyphs.res}

procedure Register;

implementation

uses
  Classes,
  uPSComponent,
  uPSDebugger,
  uPSComponent_Default,
  uPSComponent_COM,
  //uPSComponent_DB,
  uPSComponent_Forms,
  uPSComponent_Controls,
  uPSComponent_StdCtrls;

procedure Register;
begin
  RegisterComponents('RemObjects Pascal Script', [TPSScript,
                                       TPSScriptDebugger,
                                       TPSDllPlugin,
                                       TPSImport_Classes,
                                       TPSImport_DateUtils,
                                       TPSImport_ComObj,
                                       //TPSImport_DB,
                                       TPSImport_Forms,
                                       TPSImport_Controls,
                                       TPSImport_StdCtrls]);
end;

end.

[Aike]

Gibt es da auch die Möglichkeit, weitere Units etc. einzubauen? Ich möchte zum Beispiel auch Showmessage() benutzen und eigene Units :-)

[edit]Das sieht alles sehr schön aus und ich werd's bestimmt mal verwenden, aber ...

Delphi-Quellcode:

var s:string;
begin
  s:='close';
  s;
end;

... geht trotzdem nicht ;-)

Was geht, ist, dass du in ein Memo-Feld deine Befehle eingibst, aber die können auch nicht auf alle System-Units zugreifen.

Beispiel (in das Memo-Feld eingegeben):

Delphi-Quellcode:

program Test;

begin
  Application.Messagebox('bla','bla',0);
end.

=> Compilieren (F9); gibt eine MsgBx aus :-) Leider kennt er auch "MB_ICONINFORMATION" nicht.
[/edit]

[Flocke]

Als allererstes solltest du dir klar machen, dass das Script nicht im Kontext deiner Anwendung ausgeführt wird, sondern in einem eigenen - es kennt also zuerst einmal überhaupt keine Methoden außer den eingebauten.

Du kannst mit "AddMethod" eine Methode für die Benutzung im Script registrieren, z.B. mit

Delphi-Quellcode:

Script.AddMethod(Self, @TCustomForm.Close, 'procedure Close;');

Schau dir doch erst einmal die Beispiele in "C:\Programme\RemObjects Software\Pascal Script for Delphi\Samples" (oder wo immer dein Installationspfad liegt).