zu erst der code für den intepreter
Delphi-Quellcode:
begin
showmessage('lalalal');
end;
da du nun eine procedure im intepreter benutzt musst du sie ihm bei bringen das machst du bei interpreter.getvalue
da folgenen code einfügen:
Delphi-Quellcode:
procedure TForm1.JvInterpreterProgram1GetValue(Sender: TObject;
Identifier: String; var Value: Variant; Args: TJvInterpreterArgs;
var Done: Boolean);
begin
if lowercase(Identifier)='showmessage' then begin
showmessage(args.values[0]);
done:=true;
end;
end;