Strings als Befehl ausführen

[AlbertEinstein]

Hallo, zusammen!
Ich möchte ein Projekt erstellen, bei dem der Benutzer über ein Eingabefenster Befehle eintippen kann, die anschließend ausgeführt werden sollen.
Beispielsweise:

Code: Alles auswählen

IrgendeineMethode (Parameter1, Parameter2);

Gibt es eine spezielle Funktion dafür oder müsste ich eine Art Compiler selbst erstellen?
Danke im Vorraus!

[m.fuchs]

Da gibt es einige Möglichkeiten. Zum Beispiel PascalScript (http://wiki.freepascal.org/Pascal_Script) oder auch Lua (http://lua-users.org/wiki/LuaInFreePascal).

Es kommt natürlich immer darauf an, was der Benutzer kann und was damit erreicht werden soll. Manchmal kann es auch sinnvoller sein, den Befehlssatz selbst zu implementieren.

[theo]

Pascalscript ist übrigens seit 27 August unter "<lazarusdir>/components" zu finden und muss also in 1.1 (trunk) nicht mehr extra heruntergeladen werden.

[gocher]

Da lässt sich was basteln

als Erstes brauchst Du:

Code: Alles auswählen

type
  TMethodPointer = function(): DWORD of object; 

das wäre z.B. dann eine Definition für Funktionen ohne Übergabe-Parameter.

Dann brauchst Du in deiner Klasse in der die Funktionen zur Verfügung stehen noch die Bearbeitungsroutine:

Code: Alles auswählen

function TMy.CallMethod(AMethodName: ShortString): DWORD;
var pMethod: TMethodPointer;
begin
  TMethod(pMethod).data := Self;
  TMethod(pMethod).code := MethodAddress(AMethodName); //Dein übergebener Befehl
  if Not Assigned(pMethod) then
     TMethod(pMethod).code := MethodAddress(DefaultMethodeName); //Falls Befehl nichtr vorhanden
  result := pMethod();
end;

[AlbertEinstein]

Vielen Dank für eure Hilfe!
Ich denke, ich schaffe es jetzt ..
(Alles mal durchprobieren, eines wird schon richtig sein... )