Script Engines und Unicode in Delphi 2010

[Patrick]

@mkinzler

Was heißt, wie verwende ich die Komponente?
In den Samples befindet ein "TestApplication" Projekt, was ich compiliert habe. Benutzt werden hier nur die PSScript und die PS3DllPlugin Componenten. der relevante Code schaut so aus

Delphi-Quellcode:

procedure TForm1.Compile1Click(Sender: TObject);
  procedure OutputMessages;
  var
    l: Longint;
    b: Boolean;
  begin
    b := False;

    for l := 0 to PSScript.CompilerMessageCount - 1 do
    begin
      Memo2.Lines.Add('Compiler: '+ PSScript.CompilerErrorToStr(l));
      if (not b) and (PSScript.CompilerMessages[l] is TIFPSPascalCompilerError) then
      begin
        b := True;
        Memo1.SelStart := PSScript.CompilerMessages[l].Pos;
      end;
    end;
  end;
begin
  Memo2.Lines.Clear;
  PSScript.Script.Assign(Memo1.Lines);
  Memo2.Lines.Add('Compiling');
  if PSScript.Compile then
  begin
    OutputMessages;
    Memo2.Lines.Add('Compiled succesfully');
    if not PSScript.Execute then
    begin
      Memo1.SelStart := PSScript.ExecErrorPosition;
      Memo2.Lines.Add(PSScript.ExecErrorToString +' at '+Inttostr(PSScript.ExecErrorProcNo)+'.'+Inttostr(PSScript.ExecErrorByteCodePosition));
    end else Memo2.Lines.Add('Succesfully executed');
  end else
  begin
    OutputMessages;
    Memo2.Lines.Add('Compiling failed');
  end;
end;

Gibt es denn keine Möglichkeit unter Delphi 2010 mit AnsiStrings zu arbeiten. Kann doch eigentlich nicht sein, dass alle Funktionen, die Delphi bereitstellt nur noch mit WideStrings arbeiten!?