Nun ich habe ihn tatsächlich mit Execute aufgerufen
Habe das jetzt geändert...
Delphi-Quellcode:
procedure TInterpreterhread.Execute;
begin
Interpreter:= TJvInterpreterProgram.Create(nil);
Interpreter.Pas.Clear;
Interpreter.Pas.AddStrings(GLSInterpreterModule.Lines);
Interpreter.OnGetValue := InterpreterGetValue;
Interpreter.Compile;
Interpreter.CallFunction('main', nil, []);
end;
{ TGLSInterpreterModule }
procedure TGLSInterpreterModule.CompileCode;
begin
Thread:= TInterpreterhread.Create(False);
end;
Nur leider stürzt nun das gesamte Programm komplett ab (mit Delphi)
TInterpreter ist eine NonVisuele Komponente